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Preface 


In Lotus Domino R5.0x it is possible to maximize the power of Domino applications 
by using a range of features to get connected with Relational Databases (for example, 
Oracle or DB/2) 

In respect of this, there are essentially two ways in which users can connect a 
Domino application to an external data source (RDBM's, file system, etc.): 

• LotusScript Extension for Lotus Domino Connectors (LSX LC) 

• LotusScript Data Objects (LS:DO) 

The purpose of this redpaper is to demonstrate the use of these two techniques in 
accessing a DB/2 database and to give you a collection of samples encompassing the 
most important features. It was not my intent to present exhaustively all features of 
LSX LC and LS:DO - there are many good books available with detail information on 
the subject. My purpose was to create a practical sample booklet which you could 
use as a reference when writing code. 
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1. Lotus Notes Domino Connectivity to Enterprise Data and 
Applications 


In Lotus Notes Domino R5.x it is possible to maximize the power of Domino 
applications by using a range of features to get connected with Relational Databases(for 
example, Oracle or DB/2) 

In respect of this, there are essentially two ways in which users can connect a Domino application 
to an external data source ( RDBM's, file system, etc): 

• LotusScript Extension for Lotus Domino Connectors ( LSX LC) 

• LotusScript Data Objects (LS:DO) 

The purpose of this booklet is to demonstrate the use of these two techniques in accessing a DB/2 
database and to give you a collection of samples encompassing the most important features. It 
was not my intent to present exhaustively all features of LSX LC and LS:DO - there are many 
good books available with detail information on the subject. My purpose was to create a 
practical sample booklet which you could use as a reference when writing code. 

Throughout this booklet I make frequent references to the following books which you should 
have handy on your desk in order to get more details about the function used: 

• Lotus Domino Release 5.0: A Developer’s Handbook(IBM RedBook SG24-5331-01) 

• Domino Release 5. Domino Enterprise Integration Guide.(It’s part of Domino R5.x 
Documentation). 

• Lotus Domino Designer R5. Domino Designer Programming Guide, Volume 2: LotusScript 
Classes(It’s part of Domino R5.x Documentation). 

In all above books there are full details about software structure of LSX LC, LS:DO, their 
strength and weaknesses and a plenty of advices about when and where it is recommended to use 
one or the other. 

1.1 LSX LC 

LSX LC provides access to a wide variety of external data sources through the following 
Connectors: 

• DB2/UDB 

• EDA/SQL 

• Lile System 

• Notes 

• ODBC 

• Oracle 

• Sybase 
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For this purpose, LSX LC defines a set of classes for native access to those sources: 

• LC_Session to handle available connectors and errors. 

• LC_Connection to handle the connection to the data source. 

• LC_FieldList to handle arrays of row data from the data source. 

• LC_Field to handle individual data fields from the data source. 

• LC_Currency, LC_Datetime, LC_Numeric, LC_Stream to handle individual data types. 

LSX LC may be used alone or in conjunction with Domino Enterprise Connection 
Services(DECS). 

Actually, as DECS was built using the set of LSX LC classes it should be seen as a real 
life application, built by Notes in order to allow the user an easy access to DBMS products. 
Therefore, the users can do a reverse engineering on DECS application, and build their own 
application. 

In reality, DECS doesn’t use all features of LSX LC, and frequently, the users prefer to 
build their own application based on LSX LC. 

1.2 LS:DO 

LS:DO is a LotusScript extension library that provides classes for working with Open 
DataBase Connectivity(ODBC). 

Lor the time being, LS:DO supports ODBC Version 2.0 standard on a lot of platforms: Windows, 
OS/2, AIX, Solaris HP-UX. 

LS:DO is a set of three LotusScript classes as follows: 

• ODBCConnection represents ODBC data access features for connecting to a data source. 

• ODBCQuery represents the OBC data access features for defining an SQL statement. 

• ODBCResultSet represents the ODBC data access features for performing operations on a 
result set. 


* * * 

All examples in this booklet have been done using two configurations on the following 
hardware/software platform: 

Intel Pentium III, Windows NT Workstation 4.00.1381, Token Ring Connection, TCP/IP 
Protocol.(see Configuration I, Configuration II) 

Regarding DB/2, the examples use, SAMPLE database that was generated during the installation 
of DB/2 Server R7.1 

In Chapter 3 of Domino Release 5. Domino Enterprise Integration Guide book is a 
very detailed description of prerequisites for DB/2 connection with Lotus Notes Domino. 
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Configuration I 



Configuration II 



In Configuration I, a DB/2 RunTime Client R7.1 has been installed on B box for 
connecting with DB/2 Server R7.1 ( which resides on Box A). That is because Lotus Notes 
Domino Server R5.x pushes/pulls information to/from box A, through this DB/2 Client. 

If all Lotus Notes agents/codes run on Lotus Notes Domino Server only, the Lotus Notes Client 
(on box C) has no direct involvement in triggering manually any agents/codes containing LSCX 
or LS:DO, so it is no reason to have a DB/2 Client on box C. 

In Configuration II, a DB/2 RunTime Client R7.1 is not required on box A, since DB/2 
Server R7.1 takes care for connecting with Lotus Notes Domino Server R5.x. 

If all Lotus Notes agents/codes run on Lotus Notes Domino Server only, the Lotus Notes Client 
(on box B) has no direct involvement in triggering manually any agents/codes containing LSCX 
or LS:DO, so it is no reason to have a DB/2 Client on box B. 
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In both configurations, before starting the examples, it’s a good idea to check the 
connectivity to external data sources. Lotus Notes (Server and Client) comes with a test program 
named as follows: 


• NLCTEST.EXE - for Windows 95/NT(Win32) 

• ILCTEST.EXE - for OS/2 

• ALCTEST.EXE for Windows NT/Alpha 


When you run NLCTEST.EXE(in a DOS Box) the following screen brings-up: 


r 5 Command Prompt-nlctest Hill El 

D:\lnS> 

D:\ln5>nlctest 


Lotus Connector Server Connection Uerification Test 
Copyright 1998 Lotus Development Corporation 


This utility will verify connectivity from this 
machine to the selected type of server. 

(it the prompt, enter the number of the test 
you would like to run, or enter 0 to exit. 

0 - Exit this program 

1 - Lotus Notes 

2 - Oracle Server 

3 - ODBC 

4 - Sybase Server 

5 - EDA/SQL 

6 - DB/2 

7 - Microsoft SQL Server 
Run test number: [0] 


For Configuration I the following tests are required: 

1. Locate and run NLCTEST.EXE on box B. 

2. Select Option 3 for testing ODBC connection from box B to box A 

3. Select Option 6 for testing DB/2 connection from box B to box A. 

If you have installed DB/2 RunTime Client R7.1 on box C make the following tests: 

1. Locate and run NLCTEST.EXE on box C. 

2. Select Option 3 for testing ODBC connection from box C to box A 

3. Select Option 6 for testing DB/2 connection from box C to box A. 

4. Select Option 1 for testing Lotus Notes connection from box C to box B. 

For Configuration II the following tests are required: 

1. Locate and run NLCTEST.EXE on box A. 

2. Select Option 3 for testing ODBC connection from box A to box A 
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3. Select Option 6 for testing DB/2 connection from box A to box A. 

If you have installed DB/2 RunTime Client R7.1 on box B make the following tests: 

1. Locate and run NLCTEST.EXE on box B. 

2. Select Option 3 for testing ODBC connection from box B to box A 

3. Select Option 6 for testing DB/2 connection from box B to box A. 

4. Select Option 1 for testing Lotus Notes connection from box B to box A 

It is mandatory that all above tests involving NLCTEST.EXE must run successfully in 

order to exercise all the examples in this booklet. 

* 

* * 

As mentioned earlier, all the examples in this booklet work with SAMPLE DataBase, 
especially with two tables of it: EMPLOYEE and DEPARTMENT. In some examples we change 
the content of EMPLOYEE table and in some we create a new table(EUROPE - part of 
SAMPLE DataBase), populate it, print it, delete it. 


The initial content of EMPLOYEE table is as follows: 


EMPNO 

FIRSTNME 

MIDINIT 

LASTNAME 

WORKDEPT 

PHONENO 

HIREDATE 

JOB 

EDLEVEL 

SEX 

BIRTHDATE 

SALARY 

BONUS 

COMM 

000010 

CHRISTINE 

I 

HAAS 

A00 

3978 

01/01/1965 

PRES 

18 

F 

08/24/1933 

52750.00 

1000.00 

4220.00 

000020 

MICHAEL 

L 

THOMPSON 

B01 

3476 

10/10/1973 

MANAGER 

18 

M 

02/02/1948 

41250.00 

800.00 

3300.00 

000030 

SALLY 

A 

KWAN 

C01 

4738 

04/05/1975 

MANAGER 

20 

F 

05/11/1941 

38250.00 

800.00 

3060.00 

000050 

JOHN 

B 

GEYER 

E01 

6789 

08/17/1949 

MANAGER 

16 

M 

09/15/1925 

40175.00 

800.00 

3214.00 

000060 

IRVING 

F 

STERN 

Dll 

6423 

09/14/1973 

MANAGER 

16 

M 

07/07/1945 

32250.00 

500.00 

2580.00 

000070 

EVA 

D 

PULASKI 

D21 

7831 

09/30/1980 

MANAGER 

16 

F 

05/26/1953 

36170.00 

700.00 

2893.00 

000090 

EILEEN 

W 

HENDERSON 

Ell 

5498 

08/15/1970 

MANAGER 

16 

F 

05/15/1941 

29750.00 

600.00 

2380.00 

000100 

THEODORE 

Q 

SPENSER 

E21 

0972 

06/19/1980 

MANAGER 

14 

M 

12/18/1956 

26150.00 

500.00 

2092.00 

000110 

VINCENZO 

G 

LUCCHESSI 

A00 

3490 

05/16/1958 

SALESREP 

19 

M 

11/05/1929 

46500.00 

900.00 

3720.00 

000120 

SEAN 


O'CONNELL 

A00 

2167 

12/05/1963 

CLERK 

14 

M 

10/18/1942 

29250.00 

600.00 

2340.00 

000130 

DOLORES 

M 

QUINTANA 

C01 

4578 

07/28/1971 

ANALYST 

16 

F 

09/15/1925 

23800.00 

500.00 

1904.00 

000140 

HEATHER 

A 

NICHOLLS 

C01 

1793 

12/15/1976 

ANALYST 

18 

F 

01/19/1946 

28420.00 

600.00 

2274.00 

000150 

BRUCE 


ADAMSON 

Dll 

4510 

02/12/1972 

DESIGNER 

16 

M 

05/17/1947 

25280.00 

500.00 

2022.00 

000160 

ELIZABETH 

R 

PIANKA 

Dll 

3782 

10/11/1977 

DESIGNER 

17 

F 

04/12/1955 

22250.00 

400.00 

1780.00 

000170 

MASATOSHI 

J 

YOSHIMURA 

Dll 

2890 

09/15/1978 

DESIGNER 

16 

M 

01/05/1951 

24680.00 

500.00 

1974.00 

000180 

MARILYN 

S 

SCOUTTEN 

Dll 

1682 

07/07/1973 

DESIGNER 

17 

F 

02/21/1949 

21340.00 

500.00 

1707.00 

000190 

JAMES 

H 

WALKER 

Dll 

2986 

07/26/1974 

DESIGNER 

16 

M 

06/25/1952 

20450.00 

400.00 

1636.00 

000200 

DAVID 


BROWN 

Dll 

4501 

03/03/1966 

DESIGNER 

16 

M 

05/29/1941 

27740.00 

600.00 

2217.00 

000210 

WILLIAM 

T 

JONES 

Dll 

0942 

04/11/1979 

DESIGNER 

17 

M 

02/23/1953 

18270.00 

400.00 

1462.00 

000220 

JENNIFER 

K 

LUTZ 

Dll 

0672 

08/29/1968 

DESIGNER 

18 

F 

03/19/1948 

29840.00 

600.00 

2387.00 

000230 

JAMES 

J 

JEFFERSON 

D21 

2094 

11/21/1966 

CLERK 

14 

M 

05/30/1935 

22180.00 

400.00 

1774.00 

000240 

SALVATORE 

M 

MARINO 

D21 

3780 

12/05/1979 

CLERK 

17 

M 

03/31/1954 

28760.00 

600.00 

2301.00 

000250 

DANIEL 

S 

SMITH 

D21 

0961 

10/30/1969 

CLERK 

15 

M 

11/12/1939 

19180.00 

400.00 

1534.00 

000260 

SYBIL 

P 

JOHNSON 

D21 

8953 

09/11/1975 

CLERK 

16 

F 

10/05/1936 

17250.00 

300.00 

1380.00 

000270 

MARIA 

L 

PEREZ 

D21 

9001 

09/30/1980 

CLERK 

15 

F 

05/26/1953 

27380.00 

500.00 

2190.00 

000280 

ETHEL 

R 

SCHNEIDER 

Ell 

8997 

03/24/1967 

OPERATOR 

17 

F 

03/28/1936 

26250.00 

500.00 

2100.00 

000290 

JOHN 

R 

PARKER 

Ell 

4502 

05/30/1980 

OPERATOR 

12 

M 

07/09/1946 

15340.00 

300.00 

1227.00 

000300 

PHILIP 

X 

SMITH 

Ell 

2095 

06/19/1972 

OPERATOR 

14 

M 

10/27/1936 

17750.00 

400.00 

1420.00 

000310 

MAUDE 

F 

SETRIGHT 

Ell 

3332 

09/12/1964 

OPERATOR 

12 

F 

04/21/1931 

15900.00 

300.00 

1272.00 

000320 

RAMLAL 

V 

MEHTA 

E21 

9990 

07/07/1965 

FIELDREP 

16 

M 

08/11/1932 

19950.00 

400.00 

1596.00 

000330 

WING 


LEE 

E21 

2103 

02/23/1976 

FIELDREP 

14 

M 

07/18/1941 

25370.00 

500.00 

2030.00 

000340 

JASON 

R 

GOUNOT 

E21 

5698 

05/05/1947 

FIELDREP 

16 

M 

05/17/1926 

23840.00 

500.00 

1907.00 


32 record(s) selected. 


The initial structure of EMPLOYEE table is as follows: 
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The initial content of DEPARTMENT table is as follows: 


DEPTNO 

DEPTNAME 

MGRNO 

ADMRDEPT 

LOCATION 

AO 0 

SPIFFY COMPUTER SERVICE DIV. 

000010 

A0 0 

- 

BO 1 

PLANNING 

000020 

A0 0 

- 

C01 

INFORMATION CENTER 

000030 

A0 0 

- 

DO 1 

DEVELOPMENT CENTER 

- 

A0 0 

- 

Dll 

MANUFACTURING SYSTEMS 

000060 

DO 1 

- 

D21 

ADMINISTRATION SYSTEMS 

000070 

DO 1 

- 

E01 

SUPPORT SERVICES 

000050 

A0 0 

- 

Ell 

OPERATIONS 

000090 

E01 

- 

E21 

SOFTWARE SUPPORT 

000100 

E01 

- 


9 record(s) selected. 


The initial structure of DEPARTMENT table is as follows: 



2C I 
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Here is a short description of examples: 


2. LotusScript Extension for Lotus Domino Connectors(LSX LC) 

Example 2.1 

This example displays the employees’ LASTNAME and EMPNO from EMPLOYEE 
table of DB/2 SAMPLE database in a Notes document using EXECUTE method of 
LC_Connection class. 

Example 2.2 

This example displays information about a particular employee. The information is 
gathered from the tables EMPLOYEE and DEPARTMENT using EXECUTE method of 
LC_Connection class. 

Example 2.3 

This example displays all the rows from EMPLOYEE table using “Nothing” clause in 
SELECT method of LC_Connection class and FIELDNAMES property of LC_Connection. 

With the help of FIELDNAMES, there is the possibility of building a result set, based only on 
those fields of external database which we need; in this example we need to fetch fields EMPNO, 
LASTNAME, HIRED ATE only. 

Example 2.4 

This example displays all the rows from EMPLOYEE table which contain the text 
“JAMES” in the field FIRSTNME using FIELDNAMES property of LC_Connection. 

With the help of FIELDNAMES, there is the possibility to build a result set, based only on those 
fields of external database which we need; in this example we need to fetch fields EMPNO, 
LASTNAME, HIRED ATE only. In the present example, the text JAMES is hard coded, but you 
can build a construction, that asks you to type a name. As you can see, many opportunities exist 
for additional examples here. 

Example 2.5 

This example produces the same result as EXAMPLE 2.4 following the same procedure 
but instead to use FIELDNAMES property of LC_Connection class, it makes use of LOOKUP 
method of LC_Fieldlist class. 

Example 2.6 

This example produces the same result as EXAMPLE 2.4 following the same procedure 
but instead to use FIELDNAMES property of LC_Connection class, it makes use of CATALOG 
method of LC_Connection class. 

Example 2.7 
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This example produces the same result as EXAMPLE 2.4 following the same procedure 
but instead to use FIELDNAMES property of LC_Connection class, it makes use of MAP 
method of LC_Connection class. 


Example 2.8 

This example updates a row in EMPLOYEE table for an EMPNO value. It works with 
the document created in Example 2.1. 

Example 2.9 

This example creates a new table named EUROPE in SAMPLE database. The table will 
be empty, having the following structure: 

CITY, text, 10 chars in size. 

COUNTRY, text, 10 chars in size. 

Following examples will show how to populate, update and delete records in this table. 

Example 2.10 

This example adds rows into the table created during the EXAMPLE 2.9, populating the 
field CITY with PARIS, and COUNTRY with FRANCE. In the present example, the texts 
PARIS and FRANCE are hard coded, but you can build a construction, that asks you to type a 
specific CITY and COUNTRY respectively. As you can see, many opportunities exist for 
additional examples here. 


Example 2.11 

This example deletes all rows into the table, created during the EXAMPLE 2.9, for 
which the column COUNTRY is FRANCE. In the present example, the text FRANCE is hard 
coded, but you can build a construction, that asks you to type a specific COUNTRY. As you can 
see, many opportunities exist for additional examples here. 

Example 2.12 

This example removes, using the method DROP of LC_Connection class, the table 
created during the EXAMPLE 2.9. 

Example 2.13 

This example retrieves a copy of the current value for a connection property. Actually it 
shows the values behind Property Token from Appendix B of Domino Release 5. Domino 
Enterprise Integration Guide book. 


Example 2.14 
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This example retrieves all properties supported by a connector. Actually it shows the 
values behind Property Token from Appendix B and Appendix C of Domino Release 5. 
Domino Enterprise Integration Guide book. 


Example 2.15 

This example produces the same result as Example 2.14 but brings -up more details 
about all properties supported by a connector. 

Example 2.16 

This example passes through all valid connectors of a Lotus Extension for Lotus 
Connectors installation. It gives you information from a Lotus Connector about its supported 
functionality and naming used by the backend systems as well as the sort of Llags supported by 
LC_Stream class 

Example 2.17 

This example passes through all valid MetaConnectors of a Lotus Extension for Lotus 
Connectors installation. It gives you information from a Lotus Connector about its supported 
functionality and naming used by the backend systems as well as the sort of Llags supported by 
LC_Stream class 

Example 2.18 


This example looks up a Connector name, gives all its features as well as the sort of Llags 
supported by LC_Stream class 


Example 2.19 


This example looks up a MetaConnector name, gives all its features as well as the sort of 
Llags supported by LC_Stream class 


Example 2.20 


This example shows the result of execution for a lot of methods, properties, passing 
through all LSX LC classes. To understand it, you should have aside, the print out of the example 
and to follow the code lines. 

Example 2.21 


This example shows how to access external databases via a Web browser and Domino 
Server, using LSX LC. To access the data from the Web browser, you must define a LSX LC 
connection to external data source and must write the LSX LC code in an agent that runs via a 
URL command. The display of the data needed to be formatted in HTML. In this example, giving 
the employee’s serial number, we get information about an employee from SAMPLE database. 
Example 2.21 is similar with Example 3.14; the only difference is that Example 2.21 uses 
LSX LC and Example 3.14 uses ODBC. 
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3. LotusScript Data Object(LS:DO) 

Example 3.1 

This example displays the name of the available data sources 


Example 3.2 

This example shows an agent connection to the data source. If the connection fails the 
agent exits, contrary the agent lists the tables for the data source, looping through a string array 
returned by ListTables. 

Example 3.3 

This example passes through all rows of EMPLOYEE table and gets FIRSTNME and 
LASTNAME found in each row. 

Example 3.4 

This example sets the parameters in an SQL query then using NumParameters as upper 
bound, makes a loop in order to retrieve the row containing FIRSTNME and LASTNAME. 


Example 3.5 


This example examines all the fields ( columns ) in the EMPLOYEE table and displays 
their features 


Example 3.6 


This example shows an agent (AGENT6) that accesses all the rows of a result set twice, 
starting from the first row. The first time you do not explicitly set FirstRow since the first 
NextRow following an EXECUTE implicitly sets FirstRow. The second time, you must 
explicitly set FirstRow and process the first row before entering the loop. 


Example 3.7 

This example locates all the rows in a result set with “JAMES” in “FIRSTNME” field 
and “DESIGNER in field 2. 

Example 3.8 

This example displays all rows in EMPLOYEE table, for each row showing the values of 
EMPNO, FIRSTNME, LASTNAME.The variable into which the result set value is stored, is also 
used as the second argument to GetValue in order to make the data typing explicitly. 

Example 3.9 

This example displays, just for the first row of EMPLOYEE table, the name of column, 
the type of column and the value of column. 
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Example 3.10 


This example is based on a form and view, both named “PhoneBook. The form has three 
fields: lastName, firstName, phoneNumber. The view has seven Actions. The example also uses 
the agent AGENT 11. 

The following items are exercised: 

• ACTION1: creates new table onto DB2 (named Phone), deletes a table (named Phone) adds 
new rows into the Phone table. 

• ACTION2: adds new rows into the Phone table. 

• ACTION3: deletes a row in the Phone table but if the row is unique only; that means there 
aren’t two columns in the Phone table having the same LASTNAME, FIRSTNAME. 

• ACTION4: displays all rows of the Phone table using the sequence: 

DO 

RESULT.NEXTROW 


LOOP UNTIL RESULT.ISENDOFDATA 

• ACTION5: DROPs the table Phone 

• ACTION6: updates the column FIRSTNAME for the row FLOREA COSTICA 123456, 
changing COSTICA with CRISTINA 

• ACTION7: displays all the rows of the Phone table using the sequence: 

RESULT.LASTROW 

FOR 1=1 to RESULT.NUMROWS 


NEXT 

• AGENT11: deletes all rows from the Phone table, emptying the Phone table, but does not 
remove the Phone table. ACTION5 removes the Phone table. 

Example 3.11 

In this example there is the form FORM2 that contains two fields (text + editable) named 
dataSource and Table, four buttons named “Data Source”, “Table”, Postopen”, “QueryClose”, 
and two actions named “List Fields” and “List Procedure”. 

The button “Postopen” sets the objects, gets the names of the available data sources, 
writes the first one to the dataSource field, gets the names of the tables for the data source 
and writes the first one to the Table field. 
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The button “Data Source” writes the name of the next data source to the dataSource field, 

gets the tables for the new data source and writes the first one to the Table field. 

The button “Table” writes the name of the next table to the Table field. 

The action “List Fields” displays the names of all the fields for the current data source 

and table. 

The action “List Procedures” displays the name of all the procedures for the current data 

source. 

Example 3.12 

In this example, each time when you exit from the field Part_Number (inside of which 
you must type a valid serial number taken fromEMPNO of EMPLOYEE table), the code 
associated with this field, automatically fills in the fields Part_Name (with the value of 
FIRSTNME), Price (with the value of LASTNAME), Description (with the value of 
WORKDEPT). 

Example 3.13 

In order to understand this example, read the paragraph “Tips and techniques - 
Handling an ODBC event” from the book Domino Release 5. Domino Designer 
Programming Guide, Volume 2. 

In this example, the values of a row in an ODBC table are displayed as fields on FORM4. 
The user can use buttons to get the next and previous rows. The event handler 
AfterPositionChange displays the number of the current row in another field on the form 
FORM4 

Example 3.14 

This example shows how to access external databases via a Web browser and Domino 
Server, using ODBC. To access the data from the Web browser, you must define an ODBC 
connection to external data source and must write the ODBC code in an agent that runs via a 
URL command. The display of the data needed to be formatted in HTML. In this example, giving 
the employee’s serial number, we get information about an employee from SAMPLE database. 
Example 3.14 is similar with Example 2.21; the only difference is that Example 2.21 uses 
LSX LC and Example 3.14 uses ODBC. 
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2. LotusScript Extension for Lotus Domino Connectors(LSX LC) 


All examples in this chapter deal with LSX LC. To follow the exercises presented here, 
please create a Lotus Notes Database (our example LSXCODBC.NSF) from a blank template on 
Lotus Notes Domino Server(our example MUMMER.ISM.CAN.IBM.COM) 

When you decide to study the examples of this Chapter, you should have aside the following 
books: 

• Lotus Domino Release 5.0: A Developer’s Handbook(IBM RedBook SG24-5331-01) 

• Domino Release 5. Domino Enterprise Integration Guide.(It’s part of Domino R5.x 
Documentation). 
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Example 2.1 


This example displays the employees’ LASTNAME and EMPNO from EMPLOYEE 
table of DB/2 SAMPLE database in a Notes document using EXECUTE method of 
LC_Connection class. 

In order to achieve this objective do the following steps: 

Step A- 2.1 

Create a form on LSXCODBC.NSF, named FORM1 having the following structure: 

• Cimpl: text + editable 

• EmpNo: dialog list + editable, * allow multiple values, Control-> Choices: EmpNoList 

• EmpNoList: text + editable 

• FirstNme, Midinit, LastName, Sex, Bonus, Comm, Salary, PhoneNo, Job, WorkDept, 
EdLevel, DeptName, ManagerNo, Manager: text + editable 

• BirthDate, HireDate: date/time + editable 

• EmpNoAlias: text + computed, formula: EmpNo 

• Name_Display: text + computed for display, formula: FirstNme+” “+Midlnit+” “+LastName 

• Sex_Display: text + computed for display, formula: Sex 

• BirthDate_Display: date/time + computed for display, formula: BirthDate 

• Bonus_Display: text + computed for display, formula: Bonus 

• Comm_Display: text + computed for display, formula: Comm 

• Salary_Display: text + computed for display, formula: Salary 

• HireDate_Display: date/time + computed for display, formula: HireDate 

• PhoneNo_Display: text + computed for display, formula: PhoneNo 

• Job_Display: text + computed for display, formula: Job 

• WorkDept_Display: text + computed for display, formula: WorkDept 

• DeptName_Display: text + computed for display, formula: DeptName 

• Manager_Display: text + computed for display, formula: Manager 

• EdLevel_Display: text + computed for display, formula: EdLevel 

Step B - 2.1 

Select FORMl->Globals->Option Public 

USELSX “*LSXLC” 

The effect of USELSX “*LSXLC” is to invoke LotusScript Extensions for Connectors 

Step C - 2.1 

Create the following LotusScript code for BUTTON1: 


Sub Click(Source As Button) 

Dim LC_S As New LCSession 

Dim LC_Conn As New LCConnection("db2") 
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Dim LC_FldLst As New LCFieldList(l) 

Dim LC_Fieldl As New LCField(LCTYPE_TEXT, 1) 

Dim LC_Field2 As New LCField(LCTYPE_TEXT, 1) 

Dim count As Long 

Dim SelectStatement As String 

Dim workspace As New notesuiworkspace 

Dim uidoc As notesuidocument 

Set uidoc=workspace.currentdocument 

On Error Goto ErrorFIandler 

LC_Conn.Userid=" Administrator" 

LC_Conn.Password="rac4you" 

LC_Conn.Database="S AMPLE" 

LC_Conn.Disconnect 

LC_S.ClearStatus 

LC_Conn.Connect 

SelectStatement="SELECT * FROM EMPLOYEE ORDER BY LASTNAME" 

count=LC_Conn.Execute(SelectStatement,LC_FldLst) 

If count <> 0 Then 

count=LC_Conn.Fetch(LC_FldLst,l,l) 

Set LC_Field 1 =LC_FldLst.GetField( 1) 

Set LC_Field2=LC_FldLst.GetField(4) 

IDs="" 

Messagebox "The Loop is starting" 

While (count > 0) And LC_S.Status=LC_Success 

IDs=IDs + LC_Field2.text(0) + "I" + LC_Fieldl.text(0) + 
count=LC_Conn.Fetch(LC_FldLst, 1,1) 

Wend 

Messagebox "The Loop is finished" 

Call uidoc.FieldSetTextC'EmpNoList", IDs) 

Call uidoc.refresh() 

End If 
End 

ErrorHandler: 

Messagebox "Attention ! You are in Error" 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Long 

If (LC_S.status <> LCSUCCESS) Then 

status=LC_S. gets tatus(errortext,msgcode, msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) 
& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Errorf) & Chr(10) & "Lotus Notes Error Code= " & Err() 

End If 
End 

End Sub 


* 

* * 

For the time being don’t care about formulas behind the buttons: 2, 3.20 
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The structure of F0RM1 is as follows: 


Field!: p 3 cwrrl t! EmpNo: r EmpNo , j ErmMpList f EnmNoLisI t] 
Fields in DBrJ 


FjrslNrne: 
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Midlnh [ 

LoFiWonie LastNarpe r 
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5 m t. 


F = —-■ j- 3 —- j ——-- 

Bonus Bonus t Cnmnn: Comm 7 Salary. Salary j PhoneNo: PhonaNo 7 
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_ F 77. i—7 li Z 


ManogerNo i 

Manager Manager T | BirtHDete 

BirfrOeie 0 HreDate 
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Desnfxjled Fields lur Display Only 
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Oormm_OiBpla^ j 1 CommuDrsplay » Salaiy_[>3piBy 7 §alary_Diso ay 


HimDo(B_Dis®lay: f HinBDpti_Dtaplcy a] PhcmeNo_Displory | r F*hpntfHp_D»tplBy r j 
1 F JDb_Display t V^orFDepLDisptay: r WorKDepLOispI^ 


Jub_OlSplft; r ' 


T 


DepiNamgjDisplay | DeptNome_[>s.pl&y 1 MonegBr.Di splay | 
EdLevel_Display r EdLeveL&splery r - 


Wjnoqer_Disploy j- 


Billons for L0I114 Scrip! Tripinsipn lor LflMS Notes Connecters 


buflaril 

■ nf 1 

bOJnn3 butlnn^ 1 bu*an5 buMontj 

bu- ri ? | 

butlunS I 

bu* | 


| 

L-.r 






b'.nul'il 'J | buKOi jp | 


In order to run Example 2.1, create a document using FORM1 and when the document is 
opened, write something in cimpl- let say alpha, and push onto BUTTON1. Your document will 
be populated and the document looks like below(save the document): 

Field 1: alpha EmpNo: EmpNoList: ADAMSONI000150; BROWNI000200; GEYERI000050; GOUNOTI000340; 
HAAS 1000010; HENDERSONI000090; JEFFERSONI000230; JOHNSONI000260; JONES 1000210; 
KWANI000030; LEEI000330; LUCCHESSII000110; LUTZI000220; MARINOI000240; MEHTAI000320; 
NICHOLLS1000140; 0'CONNELLI000120; PARKERI000290; PEREZI000270; PIANKAI000160; 
PULASKII000070; QUINTANAI000130; SCHNEIDERI000280; SCQUTTENI000180; SETRIGHTI000310; 
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SMITHI000250; SMITHI000300; SPENSERI000100; STERNI000060; THOMPSONI000020; WALKERI000190; 
YOSHIMURAI000170 

Fields in DB/2 


FirstNme: Midinit: LastName: Sex: 

Bonus: Comm: Salary: PhoneNo: 

Job: WorkDept: EdLevel: DeptName: 
ManagerNo: Manager: BirthDate: HireDate: 


EmpNoAlias: 

Computed Fields for Display Only 


Name_Display: Sex_Display: 

BirthDate_Display: Bonus_Display: 

Comm_Display: Salary_Display: 

HireDate_Display: PhoneNo_Display: 

Job_Display: WorkDept_Display: 

DeptName_Display: Manager_Display: 

EdLevel_Display: 

Buttons for LotusScript Extension for Lotus Notes Connectors 


taifflonl | bt)Wor2 | fn.jttjfiJ | button^ | bjtipn5 | buttons | biftipn? | buttons | bunon9 | butonlO | 


PuHqnll | biinonSZ 


putlpnl 3 | 


buttonH 

1 

butlonlS | 

btitipnlF 

| 

button'17 | 


button^ | 


buflonia | buttonSO | 


* 

* * 

Let’s try to explain what happened. 

Set up the connection using userid, password, and database name to get connected to: 


Dim LC_Conn As New LCConnection("db2") 

Dim LC_FldLst As New LCFieldList(l) 

Dim LC_Fieldl As New LCField(LCTYPE_TEXT, 1) 

Dim LC_Field2 As New LCField(LCTYPE_TEXT, 1) 

Dim count As Long 

Dim SelectStatement As String 

Dim workspace As New notesuiworkspace 

Dim uidoc As notesuidocument 

Set uidoc=workspace.currentdocument 

On Error Goto ErrorHandler 

LC_Conn.Userid=" Administrator" 
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LC_Conn.Password="rac4you" 
LC_Conn.Database="S AMPLE" 


In order to clean up any previous aborted sessions, force a disconnection and reset it to normal. 


LC_Conn.Disconnect 

LC_S.ClearStatus 


Do a connection. 


LC_Conn.Connect 


Create an SQL select command to retrieve the data for all columns from EMPLOYEE table, 
ordering them by LASTNAME column. 

SelectStatement="SELECT * FROM EMPLOYEE ORDER BY LASTNAME" 

Execute the SQL statement on the connection returning the values in to LC_FldLst variable. Get 
the number of rows returned in count variable. If you getcount= -1, that means the number of 
rows is undetermined (that isn’t an error). 

count=LC_Conn.Execute(SelectStatement, LC_FldLst) 


Step through each row returned from SQL Select statement. If the value returned from SQL 
statement is not zero, that means is no error, fetch a field list record from data source. 


If count <> 0 Then 

count=LC_Conn.Fetch(LC_FldLst, 1,1) 


Put the values stored in columns l(EMPNO) and 4(LASTNAME) of EMPLOYEE table into 
LC_Fieldl, LC_Field2. 

Set LC_Field 1 =LC_FldLst.GetField( 1) 

Set LC_Field2=LC_FldLst.GetField(4) 

While the variable count is greater than zero(there are still rows to retrieve from the data source) 
and the Lotus Connectors session status is OK, get each record from data source: 


IDs="" 

Messagebox "The Loop is starting" 

While (count > 0) And LC_S.Status=LC_Success 


Set the value of the variable IDs using LASTNAME and EMPNO until all rows are read and 
store IDs value into EmpNoList field. 

IDs=IDs + LC_Field2.text(0) + "I" + LC_Fieldl.text(0) + 
count=LC_Conn.Fetch(LC_FldLst, 1,1) 

Wend 

Messagebox "The Loop is finished" 

Call uidoc.FieldSetText("EmpNoList", IDs) 
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When everything is finished, the field EmpNoList contains a string like LASTNAME I EMPNO 
and EmpNo field contains a dialog list of type LASTNAME. Actually behind each LASTNAME 
visualized in EmpNo field there is an alias composed of EMPNO value. 
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Example 2.2 


This example displays information about a particular employee. The information is 
gathered from the tables EMPLOYEE and DEPARTMENT using EXECUTE method of 
LC_Connection class. 

In order to achieve this objective, do the following step: 

Step A - 2.2 

Create the following LotusScript code for BUTTON2: 


Sub Click(Source As Button) 

Dim LC_S As New LCSession 

Dim LC_Conn As New LCConnection("db2") 

Dim LC_FldLst As New LCFieldList(l) 

Dim LC_FldLst2 As New LCFieldList(l) 

Dim LC_Field As New LCField(LCTYPE_TEXT, 1) 

Dim count As Long 

Dim SelectStatement As String 

Dim workspace As New notesuiworkspace 

Dim uidoc As notesuidocument 

Set uidoc=workspace.currentdocument 

On Error Goto ErrorHandler 

LC_Conn.Userid=" Administrator" 

LC_Conn.Password="rac4you" 

LC_Conn.Database="S AMPLE" 

LC_Conn.Disconnect 

LC_S.ClearStatus 

LC_Conn.Connect 

EmpNo=uidoc ,fieldgettext(" EmpNo Alias") 

SelectStatement="SELECT * FROM EMPLOYEE WHERE EMPNO = & EmpNo & 

count=LC_conn.Execute(SelectStatement,LC_FldLst) 

If count <> 0 Then 

count=LC_Conn.Fetch(LC_FldLst, 1,1) 

Call uidoc.fieldsettext("FirstNme",LC_FldLst.FIRSTNME(0)) 

Call uidoc.fieldsettext("LastName".LC_FldLst.LASTNAME(0)) 

Call uidoc.fieldsettext("MIdInit",LC_FldLst.MIDINIT(0)) 

Call uidoc.fieldsettext("Sex".LC_FldLst.SEX(0)) 

Set dt_TempDate=New Notesdatetime(LC_FldLst,BIRTHDATE(0)) 

Call uidoc.fieldsettext("BirthDate",dt_TempDate.DateOnly) 

Call uidoc.fieldsettext("Bonus",Cstr(LC_FldLst.BONUS(0))) 

Call uidoc.fieldsettext("Comm",Cstr(LC_FldLst.COMM(0))) 

Call uidoc.fieldsettext("Salary",Cstr(LC_FldLst.SALARY(0)}) 

Set dt_TempDate=New Notesdatetime(LC_FldLst,HIREDATE(0)) 

Call uidoc.fieldsettext("HireDate",dt_TempDate.DateOnly) 

Call uidoc.fieldsettext("PhoneNo",LC_FldLst.PHONENO(0)) 

Call uidoc.fieldsettext("Job",LC_FldLst.JOB(0)) 

Call uidoc,fieldsettext("WorkDept" ,LC_FldLst.WORKDEPT(0)) 

Call uidoc.fieldsettext("EdLevel",Cstr(LC_FldLst.EDLEVEL(0))) 

If LC_FldLst.WORKDEPT(0) <> "" Then 

SelectStatement="SELECT * FROM DEPARTMENT WHERE DEPTNO = & 

LC_FldLst.WORKDEPT(0) &. 

count=LC_Conn.Execute(SelectStatement, LC_FldLst2) 

If count <> 0 Then 
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count=LC_Conn.Fetch(LC_FldLst2,1,1) 

Call uidoc.fieldsettext("DeptName",LC_FldLst2.DEPTNAME(0)) 

Call uidoc.fieldsettext("ManagerNo",LC_FldLst2.MGRNO(0)) 
SelectStatement="SELECT * FROM EMPLOYEE WHERE EMPNO = & 

LC_FldLst2.MGRNO(0) &. 

Set LC_FldLst=New LCFieldList(l) 
count=LC_conn.Execute(SelectStatement, LC_FldLst) 

If count <> 0 Then 

count=LC_Conn.Fetch(LC_FldLst, 1,1) 

Call uidoc.fieldsettext("Manager",LC_FldLst.LastName(0)) 

End If 

End If 

End If 

Call uidoc.refresh 

End If 
End 

ErrorHandler: 

Messagebox "Attention ! You are in Error" 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Integer 

If (LC_S.status <> LCSUCCESS) Then 

status=LC_S.gets tatus(errortext,msgcode,msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) 
& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Error() & Chr(10) & "Lotus Notes Error Code= " & ErrQ 

End If 


End 

End Sub 


In order to run Example 2.2, do the following steps: 

•S Open, in edit mode, the document created in Example 2.1 

•S Select a name(LASTNAME) from the field EmpNo - let say ADAMSON. The field 

EmpNoAlias, automatically will contain the EMPNO value (000150) for this LASTNAME. 
•S Push onto BUTTON2. Your document will be populated in areas Fields in DB/2 and 

Computed Fields for Display Only and the document looks like below(save the document) 

Field 1: alpha EmpNo: ADAMSON EmpNoList: ADAMSONI000150; BROWNI000200; GEYERI000050; 
GOUNOTI000340; HAASI000010; HENDERSONI000090; JEFFERSONI000230; JOHNSONI000260; 

JONES 1000210; KWANI000030; LEEI000330; LUCCHESSII000110; LUTZI000220; MARINO1000240; 
MEHTAI000320; NICHOLLSI000140; O’CONNELLIOOODO; PARKERI000290; PEREZI000270; 

PIANKAI000160; PULASKII000070; QUINTANAI000130; SCHNEIDERI000280; SCOUTTENI000180; 
SETRIGHTI000310; SMITHI000250; SMITHI000300; SPENSERI000100; STERNI000060; THOMPSONI000020; 
WALKERI000190; YOSHIMURAI000170 


Fields in DB/2 


FirstNme: BRUCE Midinit: LastName: ADAMSON Sex; M 
Bonus: 500 Comm: 2022 Salary: 25280 PhoneNo: 4510 

Job: DESIGNER WorkDepLDll EdLevel: 16 DeptName: MANUFACTURING SYSTEMS 
ManagerNo: 000060 Manager: STERN BirthDate: 05/17/1947 HireDate: 02/12/72 
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EmpNo Ali as:000150 
Computed Fields for Display Only 


Name_Display: BRUCE ADAMSON Sex_Display: M 
BirthDate_Display: 05/17/1947 Bonus_Display:500 
Comm_Display: 2022 Salary_Display: 25280 
HireDate_Display: 02/12/72 PhoneNo_Display: 4510 
Job_Display: DESIGNER WorkDept_Display: Dll 

DeptName_Display: MANUFACTURING SYSTEMS Manager_Display: STERN 
EdLevel_Display: 16 

Buttons for LotusScript Extension for Lotus Notes Connectors 


bullpnE' | bLfflon3 | 


buHnnO | 


1 

butinn? | 

buflunB 


I'UiiuriD 


L'UNurlr | 







tlljf"llfl 1 


:: uHnn ? | 


I'Uiinrlf 

| 


t iM'nl-1 huhnrPD 


* 

* * 

Let’s try to explain what happened. 

The value stored in the EmpNoAlias field (the alias - that means EMPNO value not 
LASTNAME value) is retrieved into EmpNo variable. 


EmpNo=uidoc ,fieldgettext( "EmpNo Alias") 

SelectStatement="SELECT * FROM EMPLOYEE WHERE EMPNO = & EmpNo & 

Check to see if the value of count is zero; if not, fetch the first row from result set. 

If count <> 0 Then 

count=LC_Conn.Fetch(LC_FldLst, 1,1) 


Retrieve the rows from result set and put them into the fields of form. 


Call uidoc.fieldsettext("FirstNme",LC_FldLst.FIRSTNME(0)) 

Call uidoc.fieldsettext("LastName",LC_FldLst.LASTNAME(0)) 

Call uidoc.fieldsettext("MIdInit",LC_FldLst.MIDINIT(0)) 

Call uidoc.fieldsettextC"Sex",LC_FldLst.SEX(0)) 

Set dt_TempDate=New Notesdatetime(LC_FldLst.BIRTHDATE(0)) 
Call uidoc.fieldsettext("BirthDate",dt_TempDate.DateOnly) 

Call uidoc.fieldsettext("Bonus",Cstr(LC_FldLst.BONUS(0))) 

Call uidoc.fieldsettext("Comm",Cstr(LC_FldLst.COMM(0))) 

Call uidoc.fieldsettext("Salary",Cstr(LC_FldLst.SALARY(0))) 

Set dt_TempDate=New Notesdatetime(LC_FldLst.H!REDATE(0)) 
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Call uidoc.fieldsettext("HireDate",dt_TempDate.DateOnly) 

Call uidoc.fieldsettext("PhoneNo",LC_FldLst.PHONENO(0)) 

Call uidoc.fieldsettext("Job",LC_FldLst.JOB(0)) 

Call uidoc,fieldsettext("WorkDept" ,LC_FldLst.WORKDEPT(0)) 

Call uidoc.fieldsettext("EdLevel",Cstr(LC_FldLst.EDLEVEL(0))) 

To retrieve the department name, the DEPARTMENT table is querried using the value retrieved 
from WORKDEPT field in the EMPLOYEE table. 

If LC_FldLst.WORKDEPT(0) <> "" Then 

SelectStatement="SELECT * FROM DEPARTMENT WHERE DEPTNO = & 

LC_FldLst.WORKDEPT(0) &. 

In the end the manager’s name is retrieved from EMPLOYEE table using the value retrieved 
from the MGRNO field from DEPARTMENT table. 


SelectStatement="SELECT * FROM EMPLOYEE WHERE EMPNO = & 

LC_FldLst2.MGRNO(0) &. 
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Example 2.3 


This example displays all the rows from EMPLOYEE table using “Nothing” clause in 
SELECT method of LC_Connection class and FIELDNAMES property of LC_Connection. 

With the help of FIELDNAMES, there is the possibility of building a result set, based only on 
those fields of external database which we need; in this example we need to fetch fields EMPNO, 
LASTNAME, HIRED ATE only. 

In order to achieve this objective do the following step: 


Step A - 2.3 

Create the following LotusScript code for BUTTON6: 


Sub ClickCSource As Button) 

On Error Goto handler 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Long 

Dim session As New lcsession 

Dim src As New lcconnection("db2") 

Dim fields As New lcfieldlist 

session.clearstatus 

src .database= "SAMPLE" 

src.userid=" Administrator" 

src.password="rac4you" 

src.connect 

src .metadata= "EMPLOYEE" 

If (src.select(Nothing,l,fields)=0) Then 

Messagebox "Error in Selection" 

End 

End If 

src.fieldnames="EMPNO,LASTNAME,HIREDATE" 

msgl="" 

While (src.fetch(fields)>0) 

msgl=msgl & "EMPNO= " & fields.EMPNO(O) & " LASTNAME= " & fields.LASTNAME(O) _ 
& " HIREDATE= " & fields.HIREDATE(O) & Chr(10) 

Wend 

Messagebox msgl 
End 

handler: 

If (session.status <> LCSUCCESS) Then 

status=session.getstatus(errortext,msgcode,msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & 

Chr(10) _ 

& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 


Err() 

End 
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Messagebox "Lotus Notes Error Text= " & Error)) & Chr(10) & "Lotus Notes Error Code= " & 



End 


End Sub 


In order to run Example 2.3 do the following steps: 

■f Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

S Push onto BUTTON6. 


The result is as follows: 
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Example 2.4 


This example displays all the rows from EMPLOYEE table which contain the text 
“JAMES” in the field FIRSTNME using FIELDNAMES property of LC_Connection. 

With the help of FIELDNAMES, there is the possibility to build a result set, based only on those 
fields of external database which we need; in this example we need to fetch fields EMPNO, 
LASTNAME, HIRED ATE only. In the present example, the text JAMES is hard coded, but you 
can build a construction, that asks you to type a name. As you can see, many opportunities exist 
for additional examples here. 

Take care to the following remarked code in Step A - 2.4: 

REM If you want to get all rows which don’t contain the key “JAMES”, 

REM do OR with LCFIELDF_KEY_NE as in the first below line of code: 

REM field.flags=LCFIELDF_KEY Or LCFIELDF_KEY_NE 

REM It’s manadtory that the line field.flags=.preceeds the line field.text=”JAMES” 


In order to achieve the objective to fetch the rows do the following step: 
Step A- 2.4 

Create the following LotusScript code for BUTTON4: 


Sub Click(Source As Button) 

On Error Goto handler 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Long 

Dim session As New lcsession 

Dim src As New lcconnection("db2") 

Dim keys As New lcfieldlist 
Dim fields As New lcfieldlist 
Dim field As lcfield 
session.clearstatus 
src.database="SAMPLE" 
src.userid=" Administrator" 
src.password="rac4you" 
src.connect 

src. me tadata=" EMPLOYEE" 

Set field=keys.append( ,, FIRSTNME" ,LCTYPE_TEXT) 

field.flags=LCFIELDF_KEY 

REM If you want to get all rows which don’t contain the key “JAMES”, 

REM do OR with LCFIELDF_KEY_NE as in the first below line of code: 

REM field.flags=LCFIELDF_KEY Or LCFIELDF_KEY_NE 

REM It’s mandatory that the line field.flags=.preceeds the line field.text=”JAMES” 

field.text= "JAMES" 

If (src.select(keys,l,fields)=0) Then 

Messagebox "Error in Selection" 

End 

End If 

src.fieldnames="EMPNO,LASTNAME,HIREDATE" 
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msgl="" 

While (src.fetch(fields)>0) 

msgl=msgl & "EMPNO= " & fields.EMPNO(O) & " LASTNAME= " & fields.LASTNAME(O) _ 

& " HIREDATE= " & fields.HIREDATE(O) & Chr(10) 

Wend 

Messagebox msgl 
End 

handler: 

If (session.status <> LCSUCCESS) Then 

status=session.getstatus(errortext,msgcode,msg) 

Messagebox "Internal Text Error= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) _ 
& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Error() & Chr(10) & "Lotus Notes Error Code= " & Err() 

End If 
End 

End Sub 

In order to run Example 2.4 do the following steps: 

■f Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

■S Push onto BUTTON4. 

The result is as follows: 
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Example 2.5 


This example produces the same result as EXAMPLE 2.4 following the same procedure 
but instead to use FIELDNAMES property of LC_Connection class, it makes use of LOOKUP 
method of LC_Fieldlist class. 

In order to achieve this objective do the following step: 

Step A - 2.5 

Create the following LotusScript code for BUTTON5: 


Sub Click(Source As Button) 

On Error Goto handler 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Long 

Dim session As New lcsession 

Dim src As New lcconnection("db2") 

Dim keys As New lcfieldlist 
Dim fields As New lcfieldlist 
Dim field As lcfield 
Dim ernpno As lcfield 
Dim lastname As lcfield 
Dim hiredate As lcfield 
session.clearstatus 
src.database="SAMPLE" 
src.userid=" Administrator" 
src.password="rac4you" 
src.connect 

src. me tadata=" EMPLOYEE" 

Set field=keys.append("FIRSTNME" ,LCTYPE_TEXT) 

field.flags=LCFIELDF_KEY 
field.text= "JAMES" 

If (src.select(keys,l,fields)=0) Then 

Messagebox "Selection Error" 

End 

End If 

Set empno=fields.lookup(' ’EMPNO") 

Set lastname=fields.lookup("LASTNAME") 

Set hiredate=fields.lookup( "HIREDATE") 
msgl="" 

While (src.fetch(fields)>0) 

msgl=msgl & "EMPNO= " & ernpno.text(O) & " LASTNAME= " & lastname.text(O) _ 

& ,r HIREDATE= " & hiredate.text(O) & Chr(10) 

Wend 

Messagebox msgl 
End 

handler: 

If (session.status <> LCSUCCESS) Then 

status=session.getstatus(errortext,msgcode,msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) 
& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 
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Messagebox "Lotus Notes Error Text= " & ErrorQ & Chr(10) & "Lotus Notes Error Code= " & Err() 

End If 
End 

End Sub 


In order to run Example 2.4 do the following steps: 

•S Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

S Push onto BUTTON5. 
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Example 2.6 


This example produces the same result as EXAMPLE 2.4 following the same procedure 
but instead to use FIELDNAMES property of LC_Connection class, it makes use of CATALOG 
method of LC_Connection class. 

Take care to the following bold code: 


Set catalog=fields.getfield(l) 

While (src.fetch(fields)>0) 

totcatalog=totcatalog & catalog.text(O) & 

In set catalog=fields.getfield(l) code line, it’s mandatory to put number 1. See GetField 
method of LC_fieldlist class in Domino Release 5. Domino Enterprise Integration Guide 
book. 

In totcataiog=totcataiog & cataiog.text(O) & code line, you get the names of fields contained in 
LC_Fieldlist. 

In order to achieve this objective do the following step: 

Step A -2.6 

Create the following LotusScript code for BUTTON7: 

Sub Click(Source As Button) 

On Error Goto handler 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Long 

Dim session As New lcsession 

Dim src As New lcconnection("db2") 

Dim keys As New lcfieldlist 
Dim fields As New lcfieldlist 
Dim fields 1 As New lcfieldlist 
Dim field As lcfield 
Dim catalog As lcfield 
Dim totcatalog As String 
totcatalog="" 
session.clearstatus 
src.database="SAMPLE" 
src.userid=" Administrator" 
src.password="rac4you" 
src.connect 

src. me tadata=" EMPLOYEE" 

Set field=keys.append("FIRSTNME" ,LCTYPE_TEXT) 

field.flags=LCFIELDF_KEY 

field. text=" JAMES" 

If (src.catalog(LCOBJECT_FIELD,fields)=0) Then 

Messagebox "Error in Catalog" 

End 

End If 

Set catalog=fields.getfield(l) 

While (src.fetch(fields)>0) 
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totcatalog=totcatalog & catalog.text(O) & 

Wend 

If ((Instr(l,totcatalog,"EMPNO",0) <> 0) And (Instr(l,totcatalog,"LASTNAME",0) <> 0) And _ 
(Instr(l,totcatalog,"HIREDATE",0) <> 0))Then 

src.fieldnames="EMPNO" & ",LASTNAME,HIRED ATE" 

Else 

Messagebox "No ones from the following fields EMPNO, LASTNAME, HIREDATE exist in catalog" 
End 

End If 

If (src.select(keys,l,fieldsl)=0) Then 

Messagebox "Error in SELECT" 

End 

End If 
msgl="" 

While (src.fetch(fieldsl)>0) 

msgl=msgl & "EMPNO= " & fieldsl.EMPNO(O) & " LASTNAME= " & fieldsl.LASTNAME(O) _ 

& " HIREDATE= " & fields 1.HIREDATE(O) & Chr(10) 

Wend 

Messagebox msgl 
End 

handler: 

If (session.status <> LCSUCCESS) Then 

status=session.getstatus(errortext,msgcode,msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) 
& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Error() & Chr(10) & "Lotus Notes Error Code= " & Err() 

End If 
End 

End Sub 


In order to run Example 2.6 do the following steps: 

•S Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

^ Push onto BUTTON7. 
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Example 2.7 


This example produces the same result as EXAMPLE 2.4 following the same procedure 
but instead to use FIELDNAMES property of LC_Connection class, it makes use of MAP 
method of LC_Connection class. 

In order to achieve this objective do the following step: 

Step A - 2.7 

Create the following LotusScript code for BUTTON20: 


Sub Click(Source As Button) 

On Error Goto handler 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Long 

Dim session As New lcsession 

Dim src As New lcconnection("db2") 

Dim keys As New lcfieldlist 
Dim fields As New lcfieldlist 
Dim dfield As New lcfieldlist 
Dim field As lcfield 
Dim enipno As lcfield 
Dim lastname As lcfield 
Dim hiredate As lcfield 
session.clearstatus 
src.database="SAMPLE" 
src.userid=" Administrator" 
src.password="rac4you" 
src.connect 

src. me tadata=" EMPLOYEE" 

Set field=keys.append("FIRSTNME" ,LCTYPE_TEXT) 

field.flags=LCFIELDF_KEY 

field. text=" JAMES" 

If (src.select(keys,l,fields)=0) Then 

Messagebox "Error in Selection" 

End 

End If 

Call dfield.map(fields,"EMPNO,LASTNAME,HIREDATE") 

Set empno=dfield.getfield(l) 

Set lastname=dfield.getfield(2) 

Set hiredate=dfield.getfield(3) 

src.mapbyname=True 

msgl="" 

While (src.fetch(dfield)>0) 

msgl=msgl & "EMPNO= " & empno.text(O) & " LASTNAME= " & lastname.text(O) _ 

& " HIREDATE= " & hiredate.text(O) & Chr(lO) 

Wend 

Messagebox msgl 
End 

handler: 

If (session.status <> LCSUCCESS) Then 

status=session.getstatus(errortext,msgcode,msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) 
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& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Errorf) & Chr(lO) & "Lotus Notes Error Code= " & Err() 

End If 
End 

End Sub 


In order to run Example 2.7 do the following steps: 

•S Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

S Push onto BUTTON20. 
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Example 2.8 


This example updates a row in EMPLOYEE table for an EMPNO value. It works with 
the document created in Example 2.1. 

Take care to the following bold code: 


REM The value of a column in DB2 can be set by defining the name of DB/2 column as a 
REM PROPERTY of FIELDLIST as is written in the first below line: FldLst.EMPNO="000210" 
REM FldLst.EMPNO=''000210" 

In order to achieve the objective of this example, do the following step: 

Step A - 2.8 

Create the following LotusScript code for BUTTON3: 


Sub Click(Source As Button) 

Dim LC_S As New LCSession 

Dim workspace As New notesuiworkspace 

Dim uidoc As notesuidocument 

Dim srccon As New LCConnection("db2") 

Dim FldLst As New LCFieldList(l,LCFIELDF_TRUNC_DATA+LCFIELDF_TRUNC_PREC) 
Dim FirstNmeFld As New LCField(LCTYPE_TEXT, 1) 

Dim EmpNoKeyField As New LCField(LCTYPE_TEXT, 1) 

Dim EmpNo As String 
Dim count As Long 
Set uidoc=workspace.currentdocument 
On Error Goto ErrorHandler 
SrcCon.Userid=" Administrator" 

SrcCon.Password="rac4you" 

SrcCon.Database="S AMPLE" 
srcCon.MetaData="EMPLOYEE" 
srcCon. Disconnect 
LC_S.ClearStatus 
srcCon.Connect 

EmpNo=uidoc.fieldgettext("EmpNoAlias") 

Set EmpNoKeyField=FldLst.append("EMPNO",LCTYPE_TEXT) 

EmpNoKeyField. value=EmpNo 

REM The value of a column in DB2 can be set by defining the name of DB/2 column as a 
REM PROPERTY of FIELDLIST as is written in the first below line: FldLst.EMPNO='’000210” 
REM FldLst.EMPNO="000210” 


Set FirstNmeFld=FldLst.append("FIRSTNME",LCTYPE_TEXT) 
FirstNmeFld.text=uidoc.fieldgettext("FirstNme") 
EmpNoKeyField.Flags=EmpNoKeyField.Flags Or LCFIELDF_KEY 
count=srcCon.update(FldLst, 1,1) 

Messagebox "There are " & count & " record(s) updated" 
Messagebox "Finish Update" 
srcCon.disconnect 
End 

ErrorHandler: 

Messagebox "Attention ! You are in Error" 

Dim msg As String 
Dim errortext As String 
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Dim msgcode As Long 
Dim status As Long 

If (session.status <> LCSUCCESS) Then 

status=session.getstatus(errortext,msgcode,msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) 
& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Errorf) & Chr(10) & "Lotus Notes Error Code= " & ErrQ 

End If 
End 

End Sub 


In order to run Example 2.8 do the following steps: 

•S Open the document, created during Example 2.1, in edit mode. 

•S For the name(LASTNAME) displayed in the EmpNo field of document, which has the serial 
number defined in the field EmpNoAlias of document, we change FIRSTNAME displayed in 
the field FirstNme of document. 

•S Push onto the button BUTTON3. 
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Example 2.9 

This example creates a new table named EUROPE in SAMPLE database. The table will 
be empty, having the following structure: 

CITY, text, 10 chars in size. 

COUNTRY, text, 10 chars in size. 

Following examples will show how to populate, update and delete records in this table. 
In order to achieve the objective of this example, do the following step: 

Step A- 2.9 

Create the following LotusScript code for BUTTON8. 


Sub Click(Source As Button) 

Dim LC_S As New LCSession 

Dim srccon As New LCConnection("db2") 

Dim FldLst As New LCFieldList( 1 ,LCFIELDF_TRUNC_DATA+LCFIELDF_TRUNC_PREC) 

Dim fld As lcfield 
On Error Goto ErrorHandler 
SrcCon.Userid=" Administrator" 

SrcCon.Password="rac4you" 

SrcCon.Database="S AMPLE" 
srcCon.MetaData="EUROPE" 
srcCon.Disconnect 
LC_S.ClearStatus 
srcCon. Connect 

Set fld=FldLst.append("CITY",LCTYPE_TEXT) 

Call fld.setformatstream(0.10,LCSTREAMFMT_NATIVE) 

Set fld=FldLst.append("COUNTRY",LCTYPE_TEXT) 

Call fld.setformatstream(0.10,LCSTREAMFMT_NATIVE) 

Call srcCon.create(LCOBJECT_METADATA,FldLst) 

Messagebox "Finish Creating TABLE" 

srcCon.disconnect 

End 

ErrorHandler: 

Messagebox "Attention ! You are in Error" 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Long 

If (LC_S.status <> LCSUCCESS) Then 

status=LC_S. gets tatus(errortext,msgcode, msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) 
& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Error() & Chr(10) & "Lotus Notes Error Code= " & Err() 

End If 
End 

End Sub 


In order to run Example 2.9 do the following steps: 

■f Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

S Push onto BUTTON8. 
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Example 2.10 


This example adds rows into the table created during the EXAMPLE 2.9, populating the 
field CITY with PARIS, and COUNTRY with FRANCE. In the present example, the texts 
PARIS and FRANCE are hard coded, but you can build a construction, that asks you to type a 
specific CITY and COUNTRY respectively. As you can see, many opportunities exist for 
additional examples here. 

Take care to the following remarked code in Step A - 2.10: 


REM Instead of the commandEmpNoKeyField.value="PARIS" you can usetonly for text or binary fields) 
REM the following below lines, remarked. Attention !!! You must write all 3 below lines remarked” 

REM Dim msgs As New lcstream 
REM msgs.text= "PARIS” 

REM Call EmpNoKeyField.setstream(l,msgs) 

In order to achieve the objective of this example, do the following step: 

Step A-2.10 


Sub Click(Source As Button) 

Dim LC_S As New LCSession 
Dim uidoc As notesuidocument 
Dim srccon As New LCConnection("db2") 

Dim FldLst As New LCFieldList(l,LCFIELDF_TRUNC_DATA+LCFIELDF_TRUNC_PREC) 

Dim FirstNmeFld As New LCField(LCTYPE_TEXT, 1) 

Dim EmpNoKeyField As New LCField(LCTYPE_TEXT, 1) 

Dim count As Long 
On Error Goto ErrorHandler 
SrcCon.Userid=" Administrator" 

SrcCon.Password="rac4you" 

SrcCon.Database="S AMPLE" 
srcCon.MetaData="EUROPE" 
srcCon. Disconnect 
LC_S.ClearStatus 
srcCon. Connect 

Set EmpNoKeyField=FldLst.append("CITY",LCTYPE_TEXT) 

EmpNoKeyField. value=' ’PARIS" 

REM Instead of the commandEmpNoKeyField.value="PARIS" you can usetonly for text or binary fields) 
REM the following below lines, remarked. Attention !!! You must write all 3 below lines remarked” 

REM Dim msgs As New lcstream 
REM msgs.text= "PARIS" 

REM Call EmpNoKeyField.setstream(l,msgs) 

Set FirstNmeFld=FldLst.append("COUNTRY",LCTYPE_TEXT) 

FirstNmeFld.text="FRANCE" 

EmpNoKeyField.Flags=EmpNoKeyField.Flags Or LCFIELDF_KEY 

count=srcCon.insert(FldLst,l,l) 

Messagebox "There are " & count & " record(s) inserted" 

Messagebox "Finish Insertion" 

srcCon.disconnect 

End 

ErrorHandler: 

Messagebox "Attention ! You are in Error" 

Dim msg As String 
Dim errortext As String 
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Dim msgcode As Long 

Dim status As Long 

If (LC_S.status <> LCSUCCESS) Then 

status=LC_S.getstatus(errortext,msgcode,msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) 
& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Errorf) & Chr(10) & "Lotus Notes Error Code= " & ErrQ 

End If 
End 

End Sub 


In order to run Example 2.10 do the following steps: 

•S Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

S Push onto BUTTONIO 
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Example 2.11 


This example deletes all rows into the table, created during the EXAMPLE 2.9, for 
which the column COUNTRY is FRANCE. In the present example, the text FRANCE is hard 
coded, but you can build a construction, that asks you to type a specific COUNTRY. As you can 
see, many opportunities exist for additional examples here. 

In order to achieve the objective of this example, do the following step: 

Step A - 2.11 

Create the following LotusScript code for BUTTON11: 


Sub Click(Source As Button) 

Dim LC_S As New LCSession 

Dim srccon As New LCConnection("db2") 

Dim FldLst As New LCFieldList( 1 ,LCFIELDF_TRUNC_DATA+LCFIELDF_TRUNC_PREC) 

Dim tara As lcfield 
Dim count As Long 
On Error Goto ErrorHandler 
SrcCon.Userid=" Administrator" 

SrcCon.Password="rac4you" 

SrcCon.Database="S AMPLE" 

srcCon.MetaData="EUROPE" 

srcCon. Disconnect 

LC_S.ClearStatus 

srcCon.Connect 

srcCon.mapbyname=True 

Set tara=FldLst.append("COUNTRY",LCTYPE_TEXT) 
tara.value="FRANCE" 
tara.Flags=tara.Flags Or LCFIELDF_KEY 
count=srcCon.remove(FldLst,l,l) 

Messagebox "There are " & count & " record(s) Deleted" 

Messagebox "Finish Delete Records" 

srcCon.disconnect 

End 

ErrorHandler: 

Messagebox "Attention ! You are in Error" 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Long 

If (LC_S.status <> LCSUCCESS) Then 

status=LC_S. gets tatus(errortext,msgcode, msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) 
& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Error() & Chr(10) & "Lotus Notes Error Code= " & Err() 

End If 
End 

End Sub 


In order to run Example 2.11 do the following steps: 

■f Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 
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^ Push onto BUTTON11. 
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Example 2.12 


This example removes, using the method DROP of LC_Connection class, the table 
created during the EXAMPLE 2.9. 

In order to achieve this objective do the following step: 

Step A - 2.12 

Create the following LotusScript code for BUTTON9: 


Sub Click(Source As Button) 

Dim LC_S As New LCSession 

Dim srccon As New LCConnection("db2") 

On Error Goto ErrorHandler 
SrcCon.Userid=" Administrator" 

SrcCon.Password="rac4you" 

SrcCon.Database="S AMPLE" 
srcCon.MetaData="EUROPE" 
srcCon. Disconnect 
LC_S.ClearStatus 
srcCon. Connect 

Call srcCon.drop(LCOBJECT_METADATA) 

Messagebox "Finish Delete TABLE" 

srcCon.disconnect 

End 

ErrorHandler: 

Messagebox "Attention ! You are in Error" 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Long 

If (LC_S.status <> LCSUCCESS) Then 

status=LC_S.gets tatus(errortext,msgcode,msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) 
& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Errorf) & Chr(10) & "Lotus Notes Error Code= " & Err() 

End If 
End 

End Sub 


In order to run Example 2.12 do the following steps: 

■f Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

S Push onto BUTTON9. 
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Example 2.13 


This example retrieves a copy of the current value for a connection property. Actually it 
shows the values behind Property Token from Appendix B of Domino Release 5. Domino 
Enterprise Integration Guide book. 

In order to achieve this objective do the following step: 

Stev A - 2.13 

Create the following LotusScript code for BUTTON9: 


Sub Click(Source As Button) 

Dim LC_S As New LCSession 

Dim srccon As New LCConnection("db2") 

Dim FldLst As New LCFieldList( 1 ,LCFIELDF_TRUNC_DATA+LCFIELDF_TRUNC_PREC) 

Dim nume, connector_code, connection_code, character_set, lcx_version As lcfield 

Dim database, userid, password, metadata, index, map_name, writeback, fieldnames, ordernames As lcfield 

Dim condition, stampfield, basestamp, maxstamp, text_format, procedure, owner As lcfield 

Dim idflag_action, idflag_connector, idflag_object_catalog, idflag_object_create, idflag_object_drop As lcfield 

Dim idname_server, idname_database, idname_userid, idname_password, idname_metadata, idname_field As lcfield 

Dim idname_alt_metadata, idname_alt_field, idname_procedure, idname_index, idname_parameter As lcfield 

Dim count As Long 

On Error Goto ErrorHandler 

SrcCon.Userid=" Administrator" 

SrcCon.Password="rac4you" 

SrcCon.Database="S AMPLE" 

srcCon.MetaData="EUROPE" 

srcCon.Disconnect 

LC_S.ClearStatus 

srcCon. Connect 

Set nume=srcCon.getproperty(LCTOKEN_NAME) 

Set connector_code=srcCon.getproperty(LCTOKEN_CONNECTOR_CODE) 

Set connection_code=srcCon.getproperty(LCTOKEN_CONNECTION_CODE) 

Set character_text=srcCon.getproperty(LCTOKEN_CHARACTER_SET) 

Set lcx_version=srcCon.getproperty(LCTOKEN_LCX_VERSION) 

Set database=srcCon.getproperty(LCTOKEN_D AT ABASE) 

Set userid=srcCon.getproperty(LCTOKEN_USERID) 

Set password=srcCon.getproperty(LCTOKEN_PASSWORD) 

Set metadata=srcCon.getproperty(LCTOKEN_METADATA) 

Set index=srcCon.getproperty(LCTOKEN_INDEX) 

Set map_name=srcCon.getproperty(LCTOKEN_MAP_NAME) 

Set writeback=srcCon.getproperty(LCTOKEN_WRITEBACK) 

Set fieldnames=srcCon.getproperty(LCTOKEN_FIELDNAMES) 

Set ordernames=srcCon.getproperty(LCTOKEN_ORDERNAMES) 

Set condition=srcCon.getproperty(LCTOKEN_CONDITION) 

Set stampfield=srcCon.getproperty(LCTOKEN_STAMPFIELD) 

Set basestamp=srcCon.getproperty(LCTOKEN_BASESTAMP) 

Set maxstamp=srcCon.getproperty(LCTOKEN_MAXSTAMP) 

Set text_format=srcCon.getproperty(LCTOKEN_TEXT_FORMAT) 

Set procedure=srcCon.getproperty(LCTOKEN_PROCEDURE) 

Set owner=srcCon.getproperty(LCTOKEN_OWNER) 

Set idflag_action=srcCon.getproperty(LCTOKEN_IDFLAG_ACTION) 

Set idflag_connector=srcCon.getproperty(LCTOKEN_IDFLAG_CONNECTOR) 

Set idflag_object_catalog=srcCon.getproperty(LCTOKEN_IDFLAG_OBJECT_CATALOG) 

Set idflag_object_create=srcCon.getproperty(LCTOKEN_IDFLAG_OBJECT_CREATE) 

Set idflag_object_drop=srcCon.getproperty(LCTOKEN_IDFLAG_OBJECT_DROP) 

Set idname_server=srcCon.getproperty(LCTOKEN_IDNAME_SERVER) 
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Set idname_database=srcCon.getproperty(LCTOKEN_IDNAME_D AT ABASE) 

Set idname_userid=srcCon.getproperty(LCTOKEN_IDNAME_USERID) 

Set idname_password=srcCon.getproperty(LCTOKEN_IDNAME_PASSWORD) 

Set idname_metadata=srcCon.getproperty(LCTOKEN_IDNAME_METADATA) 

Set idname_field=srcCon.getproperty(LCTOKEN_IDNAME_FIELD) 

Set idname_alt_metadata=srcCon.getproperty(LCTOKEN_IDNAME_ALT_METADATA) 

Set idname_alt_field=srcCon.getproperty(LCTOKEN_IDNAME_ALT_FIELD) 

Set idname_procedure=srcCon.getproperty(LCTOKEN_IDNAME_PROCEDURE) 

Set idname_index=srcCon.getproperty(LCTOKEN_IDNAME_INDEX) 

Set idname_parameter=srcCon.getproperty(LCTOKEN_IDNAME_PARAMETER) 

Messagebox "LCTOKEN_NAME= " & nume.text(O) & Chr(lO) _ 

& "LCTOKEN_CONNECTOR_CODE= " & connector_code.text(0) & Chr(lO) _ 

& "LCTOKEN_CONNECTION_CODE= " & connection_code.text(0) & Chr(lO) _ 

& "LCTOKEN_CHARACTER_SET= " & character_text.text(0) & Chr(lO) _ 

& "LCTOKEN_LCX_VERSION= " & lcx_version.text(0) & Chr(lO) _ 

& "LCTOKEN_DATABASE=" & database.text(O) & Chr(lO) _ 

& "LCTOKEN_USERID= " & userid.text(O) & Chr(lO) _ 

& "LCTOKEN_PASSWORD= " & password.text(O) & Chr(lO) _ 

& "LCTOKEN_METADATA=" & metadata.text(O) & Chr(lO) _ 

& "LCTOKEN_INDEX= " & index.text(O) & Chr(lO) _ 

& "LCTOKEN_MAP_NAME= " & map_name.text(0) & Chr(lO) _ 

& "LCTOKEN_WRITEBACK=" & writeback.text(O) & Chr(lO) _ 

& "LCTOKEN_FIELDNAMES= " & fieldnames.text(O) & Chr(lO) _ 

& "LCTOKEN_ORDERNAMES= " & ordernames.text(O) & Chr(lO) _ 

& "LCTOKEN_CONDITION= " & condition.text(O) & Chr(lO) _ 

& "LCTOKEN_STAMPFIELD= " & stampfield.text(O) & Chr(lO) _ 

& "LCTOKEN_BASESTAMP= " & basestamp.text(O) & Chr(lO) _ 

& "LCTOKEN_MAXSTAMP= " & maxstamp.text(O) & Chr(lO) _ 

& "LCTOKEN_TEXT_FORMAT= " & text_format.text(0) & Chr(lO) _ 

& "LCTOKEN_PROCEDURE= " & procedure.text(O) & Chr(lO) _ 

& "LCTOKEN_OWNER= " & owner.text(O) & Chr(lO) _ 

& "LCTOKEN_IDFLAG_ACTION=" & idflag_action.text(0) & Chr(lO) _ 

& "LCTOKEN_IDFLAG_CONNECTOR=" & idflag_connector.text(0) & Chr(lO) _ 

& "LCTOKEN_IDFLAG_OBJECT_CATALOG=" & idflag_object_catalog.text(0) & Chr(lO) _ 

& "LCTOKEN_IDFLAG_OBJECT_CREATE=" & idflag_object_create.text(0) & Chr(lO) _ 

& "LCTOKEN_IDFLAG_OBJECT_DROP= " & idflag_object_drop.text(0) & Chr(lO) _ 

& "LCTOKEN_IDNAME_SERVER= " & idname_server.text(0) & Chr(lO) _ 

& "LCTOKEN_IDNAME_DATABASE=" & idname_database.text(0) & Chr(lO) _ 

& "LCTOKEN_IDNAME_USERID= " & idname_userid.text(0) & Chr(lO) _ 

& "LCTOKEN_IDNAME_PASSWORD= " & idname_password.text(0) & Chr(lO) _ 

& "LCTOKEN_IDNAME_METADATA=" & idname_metadata.text(0) & Chr(lO) _ 

& "LCTOKEN_IDNAME_FIELD= " & idname_field.text(0) & Chr(lO) _ 

& "LCTOKEN_IDNAME_ALT_METADATA=" & idname_alt_metadata.text(0) & Chr(lO) _ 

& "LCTOKEN_IDNAME_ALT_FIELD= " & idname_alt_field.text(0) & Chr(lO) _ 

& "LCTOKEN_IDNAME_PROCEDURE= " & idname_procedure.text(0) & Chr(lO) _ 

& "LCTOKEN_IDNAME_INDEX= " & idnameJndex.text(O) & Chr(lO) _ 

& "LCTOKEN_IDNAME_PARAMETER= " & idname_parameter.text(0) 

srcCon.disconnect 

End 

ErrorHandler: 

Messagebox "Attention ! You are in Error" 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Long 

If (LC_S.status <> LCSUCCESS) Then 

status=LC_S.gets tatus(errortext,msgcode,msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) 

& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Errorf) & Chr(10) & "Lotus Notes Error Code= " & ErrQ 
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End Sub 


End If 
End 


In order to run Example 2.13 do the following steps: 

•S Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

S Push onto BUTTON12 


The result is as follows: 



LCTOKEN_NAME= db2 
LCTOKEN_CONNECTOR_CODE= 65536 
LCTOKEN_CONNECTION_CODE= 65542 
LCTOKEN_CHARACTER_SET = NATIVE 
LCTOKEN_LCX_VERSION= 50331904 
LCTOKEN_DATABASE= SAMPLE1 
LCTOKEN_USERID= Administrator 
LCTOKEN_PASSWORD= 

LCTO KE N_M ETAD ATA= EUROPE 
LCTOKEN_INDEX= 

LCTO KE N_M AP_N AM E = 0 
LCTO KE N_WRITE B ACK= 0 
LCTO KE N_FI E LD NAM E S= 

LCTO KE N_0 RDERNAMES= 

LCTOKEN_CONDITION= 

LCTOKEN_STAWPFIELD= 

LCTO KE N_B AS E STAM P= 

LCTO KE N_M AXSTAM P= 
LCTOKEN_TEXT_FORMAT = 65535 
LCTO KE N_PRO CE D U RE= 

LCTO KE N_0 WN E R= 

LCTO KE N_l D FLAG_ACTI 0 N = 31 
LCTO KE N_l D FLAG_CO N N E CTO R= 552 
LCTO KE N_l D FLAG_0 B J E CT_CATALO G = 638 
LCTO KE N_l D FLAG_0 B J E CT_CRE ATE = 20 
LCTO KE N_l D FLAG_0 B J E CT_D RO P= 20 
LCTO KE N_l D NAM E_S E RVE R= 
LCTOKEN_IDNAME_DATABASE= Database 
LCTOKEN_IDNAME_USERID= Username 
LCTO KE N_l D NAM E_PAS S WO RD = Password 
LCTO KE N_l D NAM E_M ETAD ATA= Table 
LCTO KE N_l D NAM E_FI E LD = Column 
LCTO KE N_l D NAM E_ALT_M ETAD ATA= View 
LCTO KE N_l D NAM E_ALT_FI E LD = Column 
LCTO KE N_l D NAM E_PRO CE D U RE = Procedure 
LCTO KE N_l D NAM E_l N D EX= Index 
LCTO KEN IDNAME PARAMETER= Parameter 


f .OK 
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Example 2.14 


This example retrieves all properties supported by a connector. Actually it shows the 
values behind Property Token from Appendix B and Appendix C of Domino Release 5. 
Domino Enterprise Integration Guide book. 

In order to achieve this objective do the following step: 

Stev A - 2.14 

Create the following LotusScript code for BUTTON13: 


Sub Click(Source As Button) 

Dim LC_S As New LCSession 

Dim SrcCon As New LCConnection("db2") 

Dim confld As lcfield 
Dim propname As String 
Dim propdate As lcdatetime 
Dim propnumeric As lcnumeric 
Dim propstrm As lcstream 
Dim propcurr As lccurrency 
Dim propfloat As Double 
Dim propint As Long 
Dim propbool As Variant 
Dim tokenid As Long 
Dim proptype As Long 
Dim propflags As Long 
On Error Goto ErrorHandler 
SrcCon.Userid=" Administrator" 

SrcCon.Password="rac4you" 

SrcCon.Database="S AMPLE" 
srcCon.MetaData="EUROPE" 
srcCon. Disconnect 
LC_S.ClearStatus 
srcCon.Connect 

Call SrcCon.listproperty(LCLIST_FIRST, tokenid, proptype, propflags, propname) 

msgl="" 

Do 

Set confld=SrcCon.getproperty(tokenid) 

Select Case proptype 
Case LCTYPE_DATETIME: 

Set propdate=SrcCon.getpropertydatetime(tokenid) 

msgl=msgl & "NAME= " & propname & " , ID= " & Hex(tokenid) & ", FLAGS= " & 
Hex(propflags) & " , TYPE= " & "LCDateTime" & " , VALUE= " & propdate.text & Chr(lO) 

Case LCTYPE_NUMERIC: 

Set propnumeric=SrcCon.getpropertynumeric(tokenid) 

msgl=msgl & "NAME= " & propname & " , ID= " & Hex(tokenid) & ", FLAGS= " & 
Hex(propflags) & " , TYPE= " & "LCNumeric" & " , VALUE= " & propnumeric.text & Chr(10) 

Case LCTYPE_TEXT: 

Set propstrm=SrcCon.getpropertystream(tokenid,LCSTREAMFMT_NATIVE) 

msgl=msgl & "NAME= " & propname & " , ID= " & Hex(tokenid) & ", FLAGS= " & 
Hex(propflags) & " , TYPE= " & "LCStream" & " , VALUE= " & propstrm.text & Chr(10) 

Case LCTYPE_CURRENCY: 

Set propcurr=SrcCon.getpropertycurrency(tokenid) 

msgl=msgl & "NAME= " & propname & " , ID= " & Hex(tokenid) & ", FLAGS= " & 
Hex(propflags) & " , TYPE= " & "LCCurrency" & " , VALUE= " & propcurr.text & Chr(10) 

Case LCTYPE_FLOAT: 

propfloat=SrcCon.getpropertyfloat(tokenid) 
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msgl=msgl & "NAME= " & propname & " , ID= " & Hex(tokenid) & " , FLAGS= " & 
Hex(propflags) & " , TYPE= " & "Double" & " , VALUE= " & Cstr(propfloat) & Chr(10) 

Case LCTYPEJNT: 

If (propflags And LCPROPERTY_BOOLEAN) Then 

propbool=SrcCon.getpropertyboolean(tokenid,False) 

msgl=msgl & "NAME= " & propname & " , ID= " & Hex(tokenid) & " , FLAGS= " & 
Hex(propflags) & " , TYPE= " & "Boolean" & " , VALUE= " & Cstr(propbool) & Chr(10) 

Else 

propint=SrcCon.getpropertyint(tokenid) 

msgl=msgl & "NAME= " & propname & " , ID= " & Hex(tokenid) & " , FLAGS= " & 
Hex(propflags) & " , TYPE= " & "Long" & " , VALUE= " & Cstr(propint) & Chr(10) 

End If 
End Select 

Loop While SrcCon.listproperty(LCLIST_NEXT, tokenid, proptype, propflags, propname) 

Messagebox msgl 
srcCon.disconnect 
End 

ErrorHandler: 

Messagebox "Attention ! You are in Error" 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Long 

If (LC_S.status <> LCSUCCESS) Then 

status=LC_S. gets tatus(errortext,msgcode, msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) _ 
& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Error)) & Chr(10) & "Lotus Notes Error Code= " & Err() 

End If 
End 

End Sub 


In order to run Example 2.14 do the following steps: 

■S Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

S Push onto BUTTON13 


The result is as follows: 
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Example 2.15 


This example produces the same result as Example 2.14 but brings -up more details 
about all properties supported by a connector. 

In order to achieve this objective do the following step: 

Step A - 2.15 

Create the following LotusScript code for BUTTON14: 


Sub Click(Source As Button) 

Dim LC_S As New LCSession 

Dim SrcCon As New LCConnection("db2") 

Dim confld As lcfield 
Dim propname As String 
Dim tokenid As Long 
Dim proptype As Long 
Dim propflags As Long 
On Error Goto ErrorHandler 
SrcCon.Userid=" Administrator" 

SrcCon.Password="rac4you" 

SrcCon. Database="S AMPLE" 

SrcCon.MetaData="EUROPE" 

SrcCon.fieldnames=”name, address, city, state, zipcode, phone" 

srcCon.Disconnect 
LC_S.ClearStatus 
srcCon.Connect 

Call SrcCon.listproperty(LCLIST_FIRST, tokenid, proptype, propflags, propname) 

msgl="" 

Do 

Set confld=SrcCon.getproperty(tokenid) 

msgl=msgl & "NAME= " & propname & " , ID= " & Hex(tokenid) & " , FLAGS= " & Hex(propflags) & " , 
TYPE= " & proptype & " , VALUE= " & confld.text(O) & Chr(10) 

Loop While SrcCon.listproperty(LCLIST_NEXT, tokenid, proptype, propflags, propname) 

Messagebox msgl 
srcCon.disconnect 
End 

ErrorHandler: 

Messagebox "Attention ! You are in Error" 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Long 

If (LC_S.status <> LCSUCCESS) Then 

status=LC_S. gets tatus(errortext,msgcode, msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) _ 
& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Error() & Chr(10) & "Lotus Notes Error Code= " & Err() 

End If 
End 

End Sub 

In order to run Example 2.15 do the following steps: 

■f Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 
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S Push onto BUTT0N14 


The result is as follows: 



NAME= Name, ID- 30004, FLAGS- 4, TYPE= 6, VALUE= db2 
NAME= IsConnected, ID- 3000C, FLAGS= 6, TYPE- 1, VALUE= 1 
NAME= Database, ID- 10002, FLAGS= 1, TYPE= 6, VALUE= SAMPLE1 
NAME= Userid, ID= 10003, FLAGS- 1, TYPE= 6, VALUE= Administrator 
NAME= Password, ID- 10004, FLAGS= 1, TYPE= 7. VALUE- 
NAME- Metadata, ID- 10005, FLAGS- 0, TYPE- 6, VALUE- EUROPE 
NAME- Index, ID- 10006. FLAGS- 0, TYPE- 6, VALUE- 
NAME- Map By Name, ID- 10007, FLAGS- 2, TYPE- 1, VALUE- 0 
NAME- Writeback, ID- 10008, FLAGS- 2, TYPE- 1, VALUE- 0 

NAME- FieldNames, ID- 10009, FLAGS- 8, TYPE- 7, VALUE- name, address, city, state, zipcode, 
phone 

NAME- OrderNames, ID- 1000A, FLAGS- 8, TYPE- 7, VALUE- 
NAME- Condition, ID- 1000B, FLAGS- 0, TYPE- 6, VALUE- 
NAME- StampField, ID- 1000C, FLAGS- 0, TYPE- 6, VALUE- 
NAME- BaseStamp, ID- 1000D, FLAGS- 0, TYPE- 5, VALUE- 
NAME- MaxStamp, ID- 1000E, FLAGS- 0, TYPE- 5, VALUE- 
NAME- TextFormat, ID- 1000F, FLAGS- 4, TYPE- 1, VALUE- 65535 
NAME- CharacterSet, ID- 30008, FLAGS- 4, TYPE- 6, VALUE- NATIVE 
NAME- Procedure, ID- 10010, FLAGS- 0, TYPE- 6, VALUE- 
NAME- Owner, ID- 10011, FLAGS- 0, TYPE- 6, VALUE- 
NAME- Alternate Metadata, ID- 10013, FLAGS- 2, TYPE- 1, VALUE- 0 
NAME- RecordLimit, ID- 10015, FLAGS- 0, TYPE- 1, VALUE- 0 
NAME- CommitFrequency, ID- 1, FLAGS- 0, TYPE- 1, VALUE- 1 
NAME- RollbackOnError, ID- 2, FLAGS- 2, TYPE- 1, VALUE- 0 
NAME- CreateMaxLogged, ID- 3, FLAGS- 0, TYPE- 1, VALUE- 0 
NAME- NoJournal, ID- 4, FLAGS- 2, TYPE- 1, VALUE- 0 
NAME- CreatelnDatabase, ID- 5, FLAGS- 0. TYPE- 6, VALUE- 
NAME- TraceSQL, ID- 6, FLAGS- 2, TYPE- 1, VALUE- 0 
NAME- TimestampTable, ID- 7, FLAGS- 0, TYPE- 6, VALUE- 


f OK 
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Example 2.16 


This example passes through all valid connectors of a Lotus Extension for Lotus 
Connectors installation. It gives you information from a Lotus Connector about its supported 
functionality and naming used by the backend systems as well as the sort of Llags supported by 
LC_Stream class 

In order to achieve this objective do the following step: 

Step A - 2.16 

Create the following LotusScript code for BUTTON15: 


Sub Click(Source As Button) 

Dim session As New lcsession 
Dim conname As String 
Dim coneode As Long 
Dim text As String 

Dim flaglist As New lcstream(0,0,LCSTREAMFMT_NUMBER_LIST) 

Dim namelist As New lcstream(0,0,LCSTREAMFMT_TEXT_LIST) 

Call session.listconnector(LCLIST_FIRST,conname, coneode, flaglist, namelist) 

text=conname 

msgl="" 

msgl=msgl & "conname= " & conname & " concode= " & coneode & Chr(10) _ 

& "NAMELIST" & Chr(10) _ 

& " flags= " & namelist.flags & " format= " & namelist.format _ 

& " length= " & namelist.length & " maxlength= " & namelist.maxlength & Chr(10) & "text= " & namelist.text & 

Chr(10) _ 

& " valuecount= " & namelist.valuecount & " rangecount= " & namelist.rangecount & Chr(10) _ 

& "FLAGLIST" & Chr(lO) _ 

& " flags= " & flaglist.flags & " format= " & flaglist.format _ 

& " length= " & flaglist.length & " maxlength= " & flaglist.maxlength & Chr(10) & "text= " & flaglist.text & 

Chr(10) _ 

& " valuecount= " & flaglist.valuecount & " rangecount= " & flaglist.rangecount & Chr(10) & Chr(10) 

While session.listconnector(LCLIST_NEXT,conname, coneode, flaglist, namelist) 

text=text + " , " + conname 

msgl=msgl & "conname= " & conname & " concode= " & coneode & Chr(10) _ 

& "NAMELIST" & Chr(10) _ 

& " flags= " & namelist.flags & " format= " & namelist.format _ 

& " length= " & namelist.length & " maxlength= " & namelist.maxlength & Chr(10) & "text= " & 
namelist.text & Chr(10) _ 

& " valuecount= " & namelist.valuecount & " rangecount= " & namelist.rangecount & Chr(10) _ 

& "FLAGLIST" & Chr(lO) _ 

& " flags= " & flaglist.flags & " format= " & flaglist.format _ 

& " length= " & flaglist.length & " maxlength= " & flaglist.maxlength & Chr(10) & "text= " & flaglist.text 

& Chr(10) _ 

& " valuecount= " & flaglist.valuecount & " rangecount= " & flaglist.rangecount & Chr(10) & Chr(lO) 

Wend 

msgl=msgl & "The usable Connectors are " & text 
Messagebox msgl 

End Sub 


In order to run Example 2.16 do the following steps: 

■f Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

S Push onto BUTTON15 
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The result is as follows: 


conname* db2 concode= 65536 
NAMELIST 

flags* 0 format= 1073741 827 length= 92 maxlength= 0 

text=, Database, Username, Password, Table, Procedure, Index Column, Parameter, View, Column 

valuecount= 11 rangecount= 0 

FLAGLIST 

flags= 0 format= 1073741828 length= 44 maxlength= 0 
text= 552, 31, 638, 20, 20 
valuecount= 5 rangecount= 0 

conname= file concode= 131072 
NAMELIST 

flags= 0 format= 1073741827 length= 50 maxlength= 0 
text=, Directory,,, Subdirectory,,, Field,,, 
valuecount= 11 rangecount= 0 
FLAGLIST 

flags= 0 format= 1073741828 length= 44 maxlength= 0 
text* 48 . 19, 38, 6, 6 
valuecount* 5 rangecount= 0 

conname* notes concode= 196608 
NAMELIST 

flags* 0 format* 1073741827 length* 56 maxlength* 0 
text* Server, FilePath,,, Form, Agent View, Field,,, 
valuecount* 11 rangecount* 0 
FLAGLIST 

flags* 0 format* 1073741828 length* 44 maxlength* 0 
text* 226,19, 63, 22, 22 
valuecount* 5 rangecount* 0 

conname* odbc2 concode* 2621-14 
NAMELIST 

flags* 0 format* 1073741827 length* 90 maxlength* 0 

text* Server,, Username, Password,Table, Procedure, Index Column, Parameter, View, Column 

valuecount* 11 rangecount* 0 

FAGLIST 

flags* 0 format* 1073741828 length* 44 maxlength* 0 
text* 544, 31, 109, 4,4 
valuecount* 5 rangecount* 0 

The usable Connectors are db2, file, notes, odbc2 


OK 


m r s nmm«nH Prnmnt I !/£•.' (\ In*i*lr»r4\ . 
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Example 2.17 


This example passes through all valid MetaConnectors of a Lotus Extension for Lotus 
Connectors installation. It gives you information from a Lotus Connector about its supported 
functionality and naming used by the backend systems as well as the sort of Llags supported by 
LC_Stream class 

In order to achieve this objective do the following step: 

Step A - 2.17 

Create the following LotusScript code for BUTTON16: 


Sub Click(Source As Button) 

Dim session As New lcsession 
Dim conname As String 
Dim coneode As Long 
Dim text As String 

Dim flaglist As New lcstream(0,0,LCSTREAMFMT_NUMBER_LIST) 

Dim namelist As New lcstream(0,0,LCSTREAMPMT_TEXT_LIST) 

Call session.listmetaconnector(LCLIST_FIRST,conname, concode, flaglist, namelist) 

text=conname 

msgl="" 

msgl=msgl & "conname= " & conname & " concode= " & concode & Chr(10) _ 

& "NAMELIST" & Chr(10) _ 

& " flags= " & namelist.flags & " format= " & namelist.format _ 

& " length= " & namelist.length & " maxlength= " & namelist.maxlength & Chr(10) & "text= " & namelist.text & 

Chr(10) _ 

& " valuecount= " & namelist.valuecount & " rangecount= " & namelist.rangecount & Chr(10) _ 

& "FLAGLIST" & Chr(lO) _ 

& " flags= " & flaglist.flags & " format= " & flaglist.format _ 

& " length= " & flaglist.length & " maxlength= " & flaglist.maxlength & Chr(10) & "text= " & flaglist.text & Chr(10) _ 
& " valuecount= " & flaglist.valuecount & " rangecount= " & flaglist.rangecount & Chr(10) & Chr(10) 

While session.listmetaconnector(LCLIST_NEXT,conname,concode, flaglist, namelist) 

text=text + " , " + conname 

msgl=msgl & "conname= " & conname & " concode= " & concode & Chr(10) _ 

& "NAMELIST" & Chr(10) _ 

& " flags= " & namelist.flags & " format= " & namelist.format _ 

& " length= " & namelist.length & " maxlength= " & namelist.maxlength & Chr(10) & "text= " & 
namelist.text & Chr(10) _ 

& " valuecount= " & namelist.valuecount & " rangecount= " & namelist.rangecount & Chr(10) _ 

& "FLAGLIST" & Chr(lO) _ 

& " flags= " & flaglist.flags & " format= " & flaglist.format _ 

& " length= " & flaglist.length & " maxlength= " & flaglist.maxlength & Chr(10) & "text= " & flaglist.text 

& Chr(10) _ 

& " valuecount= " & flaglist.valuecount & " rangecount= " & flaglist.rangecount & Chr(10) & Chr(lO) 

Wend 

msgl=msgl & "The usable MetaConnectors are " & text 
Messagebox msgl 

End Sub 


In order to run Example 2.17 do the following steps: 

■f Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

S Push onto BUTTON16 
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The result is as follows: 


conname= collexp concode= 327680 
NAMELIST 

flags= 0 format= 1073741827 length= 21 maxlength= 
text=. 

valuecount= 11 rangecount= 0 
FLAGLIST 

flags= 0 format= 1073741828 length= 44 maxlength= 
text= <1096, 0, 0, 0, 0 
valuecount= 5 rangecount= 0 

conname= order concode= 393216 
NAMELIST 

flags= 0 format= 10737-11827 length= 24 maxlength= 
text=. 

valuecount= 11 rangecount= 0 
FLAGLIST 

flags= 0 format= 10737-11828 length= 44 maxlength= 
text= 1096, 0, 0, 0, 0 
valuecount= 5 rangecount= 0 

The usable MetaConnectors are collexp, order 


f.OK 


0 

0 

0 

0 
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Example 2.18 

This example looks up a Connector name, gives all its features as well as the sort of Flags 
supported by LC_Stream class 

In order to achieve this objective do the following step: 

Step A - 2.18 

Create the following LotusScript code for BUTTON17: 


Sub Click(Source As Button) 

Dim session As New lcsession 
Dim concode As Long 

Dim flaglist As New lcstream(0,0,LCSTREAMFMT_NUMBER_LIST) 

Dim namelist As New lcstream(0,0,LCSTREAMFMT_TEXT_LIST) 

If (session.lookupconnector(”db2",concode,flaglist, namelist)) Then 

Messagebox "This Connector is installed having the following features:" & Chr(10) _ 

& "concode= " & concode & Chr(10) _ 

&"NAMELIST" & Chr(10) _ 

& " flags= " & namelist.flags & " format= " & namelist.format _ 

& " length= " & namelist.length & " maxlength= " & namelist.maxlength & Chr(10) _ 

& "text= " & namelist.text & Chr(10) _ 

& " valuecount= " & namelist.valuecount & " rangecount= " & namelist.rangecount & Chr(10) 
& "FLAGLIST" & Chr(10) _ 

& " flags= " & flaglist.flags & " format= " & flaglist.format _ 

& " length= " & flaglist.length & " maxlength= " & flaglist.maxlength & Chr(10) _ 

& "text= " & flaglist.text & Chr(10) _ 

& " valuecount= " & flaglist.valuecount & " rangecount= " & flaglist.rangecount 

Else 

Messagebox "This Connector is not installed" 

End If 

End Sub 


In order to run Example 2.18 do the following steps: 
v'' Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

S Push onto BUTTON17 

The result is as follows: 
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Example 2.19 

This example looks up a MetaConnector name, gives all its features as well as the sort of 
Flags supported by LC_Stream class 
In order to achieve this objective do the following step: 

Step A - 2.18 

Create the following LotusScript code for BUTTON18: 


Sub Click(Source As Button) 

Dim session As New lcsession 
Dim concode As Long 
Dim tokenbase As Long 

Dim flaglist As New lcstream(0,0,LCSTREAMFMT_NUMBER_LIST) 

Dim namelist As New icstream(0,0,LCSTREAMFMT_TEXT_LIST) 

If (session.lookupmetaconnector("order",concode,tokenbase, flaglist, namelist)) Then 

Messagebox "This MetaConnector is installed having the following features:" & Chr(10) _ 

& "concode= " & concode & " tokenbase= " & tokenbase & Chr(10) _ 

&"NAMELIST" & Chr(10) _ 

& " flags= " & namelist.flags & " format= " & namelist.format _ 

& " length= " & namelist.length & " maxlength= " & namelist.maxlength & Chr(10) _ 

& "text= " & namelist.text & Chr(10) _ 

& " valuecount= " & namelist.valuecount & " rangecount= " & namelist.rangecount & Chr(10) 
& "FLAGLIST" & Chr(10) _ 

& " flags= " & flaglist.flags & " format= " & flaglist.format _ 

& " length= " & flaglist.length & " maxlength= " & flaglist.maxlength & Chr(10) _ 

& ”text= " & flaglist.text & Chr(10) _ 

& " valuecount= " & flaglist.valuecount & " rangecount= " & flaglist.rangecount 

Else 

Messagebox "This MetaConnector is not installed" 

End If 

End Sub 


In order to run Example 2.19 do the following steps: 

S Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 

S Push onto BUTTON18 


The result is as follows: 
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Example 2.20 


This example shows the result of execution for a lot of methods, properties, passing 
through all LSX LC classes. To understand it, you should have aside, the print out of the example 
and to follow the code lines. 

In order to achieve the objective of this example, do the following step: 

Stev A - 2.20 

Create the following LotusScript code for BUTTON19: 


Sub Click(Source As Button) 

Dim LC_S As New LCSession 

Dim SrcCon As New LCConnection("db2") 

Dim fldlst As New lcfieldlist 

Dim inclc As New lcfield(LCTYPE_INT) 

Dim i As Long 

Dim index As Long 

Dim dtype As Long 

Dim flags As Long 

Dim fname As String 

Dim fmsg As String 

Dim lcfield As lcfield 

Dim ref As lcfield 

On Error Goto ErrorHandler 

SrcCon.Userid=" Administrator" 

SrcCon.Password="rac4you" 

SrcCon.Database="S AMPLE" 

SrcCon.MetaData="EMPLOYEE" 
srcCon. Disconnect 
LC_S.ClearStatus 
srcCon.Connect 

If(srcCon.select(Nothing, 1 ,fldlst)=0) Then 

Messagebox "The MetaData table wasn't found" 

End 

End If 

Messagebox "The MetaData " & SrcCon.MetaData & " table was found" 

fmsg="There are " & fldlst.FieldCount & " columns in the " & SrcCon.MetaData & " table as follows:" & Chr(10) 

For i=l To fldlst.FieldCount 

fmsg=fmsg & fldlst.getname(i) & Chr(10) 

REM Numele unei coloane se poate obtine si cu comanda fldlst.names(i-l) precum in linia de mai jos: 
REM fmsg=fmsg & fldlst.names(i-l) & Chr(10) 

If (fldlst.getname(i)="LASTNAME") Then 

Call fldlst.setnameti,"NLASTNAME") 

REM The name of a field in fldlst can be as well changed using REPLACE method as in the below line: 

REM Call fldlst.replace(i,"NLASTNAME",LCTYPE_TEXT) 

End If 

Next 

Messagebox fmsg 

Call fldlst.remove(9) 

fmsg="There are " & fldlst.FieldCount & " columns in the " & SrcCon.MetaData & " table as follows:" & Chr(10) 
For i=l To fldlst.FieldCount 

fmsg=fmsg & fldlst.getname(i) & Chr(10) 

Next 

Messagebox fmsg 
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Set lcfield=fldlst.insert(6,"COUNTRY",LCTYPE_TEXT) 

fmsg="There are " & fldlst.FieldCount & " columns in the " & SrcCon.MetaData & " table as follows:" & Chr(10) 

For i=l To fldlst.FieldCount 

fmsg=fmsg & fldlst.getname(i) & Chr(10) 

Next 

Messagebox fmsg 

fmsg="The " & SrcCon.MetaData & " Table Description is as follows:" & Chr(10) 

i=LCLIST_FIRST 

While (f]dlst.list(i„index,dtype,flags,fname)=True) 

fmsg=fmsg & " index= " & index & " dtype= " & Cstr(dtype) & " flags= " & Hex(flags) & " fname= " 
& fname & Chr(10) 

i=LCLIST_NEXT 

Wend 

Messagebox fmsg 

inclc.flags=0 

Call fldlst.includefield(9,indc,'’CONTINENT”) 

fmsg="The " & SrcCon.MetaData & " Table Description is as follows:" & Chr(10) 
i=LCLIST_FIRST 

While (fldlst.list(i„index,dtype,flags,fname)=True) 

fmsg=fmsg & " index= " & index & " dtype= " & Cstr(dtype) & " flags= " & Hex(flags) & " fname= " & 

fname & Chr(10) 

i=LCLIST_NEXT 

Wend 

Messagebox fmsg 

Set lcfield=fldlst.lookup("MIDINIT",i) 

If Not(lcfield Is Nothing) Then 

Messagebox "Found MIDINIT in the fldlst at position " & i 

Set ref=fldlst.copyfield( 1 l.lcfield,"REGION") 

fmsg="The " & SrcCon.MetaData & " Table Description is as follows:" & Chr(10) 
i=LCLIST_FIRST 

While (fldlst.list(i„index,dtype,flags,fname)=True) 

fmsg=fmsg & " index= " & index & " dtype= " & Cstr(dtype) & " flags= " & Hex(flags) & " 

fname= " & fname & Chr(10) 

i=LCLIST_NEXT 

Wend 

Messagebox fmsg 

Else 

Messagebox "Didn't find MIDINIT in the fldlst" 

End If 

srcCon.disconnect 
End 

ErrorHandler: 

Messagebox "Attention ! You are in Error" 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim status As Long 

If (LC_S.status <> LCSUCCESS) Then 

status=LC_S. gets tatus(errortext,msgcode, msg) 

Messagebox "Internal Error Text= " & errortext & Chr(10) & "Internal Error Code= " & status & Chr(10) _ 
& "External Error Text= " & msg & Chr(10) & "External Error Code= " & msgcode 

Else 

Messagebox "Lotus Notes Error Text= " & Error() & Chr(10) & "Lotus Notes Error Code= " & Err() 

End If 
End 

End Sub 

In order to run Example 2.20 do the following steps: 

•S Open the document created in Example 2.1, or create a new one; in both situations, when the 
exercise is done, you don’t need to save the opened document. 
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Y Push onto BUTTON19 


The result is as follows: 



The MetaData EMPLOYEE table was found 




There are 1 A columns in the EMPLOYEE table as follows: 

EMPNO 

FIRSTNME 

MIDINIT 

LASTNAME 

WORKDEPT 

PHONENO 

HIREDATE 

JOB 

EDLEVEL 
SEX 

BIRTH DATE 
SALARY 
BONUS 
COMM 
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The EMPLOYEE Table Description is as follows: 
index= 1 dtype= 6 flags= 3 fname= EMPNO 
index= 2 d1ype= 6 flags= 3 fname= FIRSTNME 
index= 3 dtype= 6 flags= 3 fname= MIDINIT 
index= A dtype= 6 flags= 3 fname= NLASTNAME 
index= 5 dtype= 6 flags= 2 fname= WORKDEPT 
index= 6 dtype= 6 flags= 2 fname= COUNTRY 
index= 7 dtype= 6 flags= 2 fname= PHONENO 
index= 8 dtype= 5 flags= 2 fname= HIREDATE 
index= 9 d1ype= 6 flags= 2 fname= JOB 
index= 10 dtype= 6 flags= 2 fname= SEX 
index= 11 dtype= 5 flags= 2 fname= BIRTHDATE 
index= 12 dtype= A flags= 2 fname= SALARY 
index= 13 dtype= A flags= 2 fname= BONUS 
index= 1 A dtype= A flags= 2 fname= COMM 



Page 2 - 46 

























The EMPLOYEE Table Description is as follows: 
index* 1 dtype* G flags= 3 fname* EMPNO 
index* 2 dtype* G flags* 3 fname* FIRSTNME 
index* 3 dtype* 6 flags* 3 fname* MIDINIT 
index* A dtype* 6 flags* 3 fname* NLASTNAME 
index* 5 dtype* 6 flags* 2 fname* WORKDEPT 
index* 6 dtype* 6 flags* 2 fname* COUNTRY 
index* 7 dtype* 6 flags* 2 fname* PHONENO 
index* 8 dtype* 5 flags* 2 fname* HIREDATE 
index* 9 dtype* 1 flags* 0 fname* CONTINENT 
index* 1 0 dtype* 6 flags* 2 fname* JOB 
index* 11 dtype* 6 flags* 2 fname* SEX 
index* 1 2 dtype* 5 flags* 2 fname* BIRTHDATE 
index* 1 3 dtype* A flags* 2 fname* SALARY 
index* 1 A dtype* A flags* 2 fname* BONUS 
index* 1 5 dtype* A flags* 2 fname* COMM 

[.OK.[| 




The EMPLOYEE Table Description is as follows: 
index= 1 dtype= 6 <lags= 3 fname= EMPNO 
index= 2 dtype= 6 flags= 3 fname= FIRSTNME 
index= 3 dtype= 6 flags= 3 fname= MIDINIT 
index= A dtype= 6 flags= 3 fname= NLASTNAME 
index= 5 dtype= 6 flags= 2 fname= WORKDEPT 
index= 6 dtype= 6 flags= 2 fname= COUNTRY 
index= 7 dtype= 6 flags= 2 fname= PHONENO 
index= 8 dtype= 5 flags= 2 fname= HIREDATE 
index= 9 dtype= 1 flags= 0 fname= CONTINENT 
index= 10 dtype= 6 flags= 2 fname= JOB 
index= 11 dtype= 6 flags= 3 fname= REGION 
index= 12 dtype= 6 flags= 2 fname= SEX 
index= 13 dtype= 5 flags= 2 fname= BIRTHDATE 
index= 1 A dtype= A flags= 2 fname= SALARY 
index= 15 dtype= A flags= 2 fname= BONUS 
index= 16 dtype= A flags= 2 fname= COMM 


f.OK 
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Example 2.21 


This example shows how to access external databases via a Web browser and Domino 
Server, using LSX LC. To access the data from the Web browser, you must define a LSX LC 
connection to external data source and must write the LSX LC code in an agent that runs via a 
URL command. The display of the data needed to be formatted in HTML In this example, giving 
the employee’s serial number, we get information about an employee from SAMPLE database. 
Example 2.21 is similar with Example 3.14; the only difference is that Example 2.21 uses 
LSX LC and Example 3.14 uses ODBC. 

In order to execute Example 2.21 do the following steps: 

Step A - 2.21 

Create a form on LSXCODBC.NSF, named FORM6 having the following structure: 


r SMOpiCHsUr] " SEFVER.MAME r] 


EMPLOYEE Search 


Tin H.nmafc Khnw. IJK ill p „|. J|T3 Srnpl l&i LMufc Ccmnij C'prwi 151*^1 wiv?- 'Jt*? nijHif'r; Kelp ... HEiR 3 -WPlE 

drtbwe bssrc inrkj*- 


ttn-lnd ;in Emplmynci Numhnr 


LMFNUH 


LlKkirq £ubrvt( Lirfnn a-cc Ja: tin -spfr rJ 

TWa »l iufi ihe ttsif TS>CE'-fia;,‘ vvLl] c k up" urth i s Employs Nunbar a: a paramalat 


tlpfitUIl f 


Let’s detail the above form: 

• Field SaveOptions: text + computed, formula: “0” 

• Field SERVER_NAME: text + computed, formula: SERVER_NAME 

• Field EMPNOR: text + editable 

• Field $$Return: text + computed, formula: 

@Return("[http://"+SERVER_NAME+"/"+@ReplaceSubstring(@Subset(@DbName;-l);"\\";"/")+"/LSX 
LCEmploy eeLookup?Open Agent & 1 ’ +EMPN OR+" ]") 

• Button Submit: JavaScript Formula: this.form.submit() 

* 

* * 

The Fields: SaveOptions, SERVER_NAME, $$Return have in “Paragraph Hide When”: 
Hide paragraph from: 
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* Notes R4.6 or later 
Hide paragraph when document is: 

* opened for reading 


* Web browser 

* opened for editing 


* printed 

Step B- 2.21 

Create the agent named LSX LCEmployeeLookup having the features: Share Agent + 
Manually from agent list + Should act on all documents in database. 


Create the following LotusScript code for agent LSX LCEmployeeLookup: 


Option Public 
Uselsx lc “*LSXLC” 


Sub Initialize 

Dim lcs As New lcsession 
Dim lcfldlst As New lcfieldlist(l) 

Dim session As New notessession 

Dim doc As notesdocument 

Dim conn As New lcconnection("db2") 

Dim query As String 

Dim varl As Integer 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim datal As Long 

Set doc=session.documentcontext 

Set db=session.currentdatabase 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLEl" 

userid=" Admini strator" 

parola=" rac4you" 

conn.database=dsn 

conn.userid=userid 

conn.password=parola 

urlstring=doc.Query_String(0) 

urllength=Len(urlstring) 

paramposition=Instr(urlstring, "&")+1 

webparam=Mid(urlstring,paramposition,urllength-paramposition+l) 

conn.disconnect 

lcs.clearstatus 

On Error Goto etl 

conn.connect 

On Error Goto 0 

query="select * from EMPLOYEE where EMPNO-" & webparam & 
On Error Goto et2 
datal=conn.execute(query,lcfldlst) 

On Error Goto 0 
If datal <> 0 Then 

varl=0 

While (conn.fetch(lcfldlst) >0) 

empno=lcfldlst.EMPNO(0) 

If empno=webparam Then 
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varl=l 

firstnme=lcfldlst.FIRSTNME(0) 

midinit=lcfldlst.MIDINIT (0) 

lastname=lcfldlst.LASTNAME(0) 

workdept=lcfldlst.WORKDEPT(0) 

phoneno=lcfldlst.PHONENO(0) 

hiredate=lcfldlst.HIRED ATE(O) 

job=lcfldlst.JOB(0) 

edlevel=lcfldlst.EDLEVEL(0) 

sex=lcfldlst.SEX(0) 

birthdate=lcfldlst.B IRTHD ATE(O) 

salary=lcfldlst.S ALARY (0) 

bonus=lctldlst.BONUS(0) 

comm=lcfldlst.COMM(0) 

Print "<headxbody>" 

Print "<h3>This is the information for employee: " & webparam & "</h3>" 

Print "EMPNO: " & ernpno & "<br>" 

Print "FIRSTNAME: " & firstnme & "<br>" 

Print "MIDINIT: " & midinit & "<br>" 

Print "LASTNAME: " & lastname & "<br>" 

Print "<br>" 

Print "WORKDEPT: <a href=./LSX LCDeptLookup?OpenAgent&” & workdept & 


">" & workdept & ”</a>" & "<br>" 

Print "PHONENO: " & phoneno & "<br>" 

Print "HIREDATE: " & hiredate & "<br>" 

Print "JOB: " & job & "<br>" 

Print "EDLEVEL: " & edlevel & "<br>" 

Print "SEX: " & sex & "<br>" 

Print "BIRTHDATE: " & birthdate & "<br>" 

Print "SALARY: " & salary & "<br>" 

Print "BONUS: " & bonus & "<br>" 

Print "COMM: " & comm & "<br>" 

Print "<brxbr>" 

Print "Thank You" 

End If 

Wend 

If varl <> 1 Then 
Goto et4 

End If 

Else 

Goto et4 

End If 

conn.disconnect 

End 

Print "Not OK, Could not connect to " & dsn & " DataBase.<br>" 

Goto et3 

conn.disconnect 

Print "Not OK, Could not Select from " & dsn & " DataBase !<br>" 

Goto et3 

conn.disconnect 

Print "Not OK, The EMPLOYEE ID cannot be found in " & dsn & " DataBase !<br>" 

If (lcs.status <> LCSUCCSESS) Then 

datal=lcs.getstatus(errortext,msgcode,msg) 

Print "Internal Error Text: " & errortext & "<br>" 

Print "Internal Error Code: " & Str$(datal) & "<br>" 

Print "External Error Text: " & msg & "<br>" 

Print "External Error Code: " & Str$(msgcode) & "<br>" 


etl: 


et2: 


et4: 


et3: 
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Else 

Print "Lotus Notes Text Error: " & Error!) & "<br>" 

Print "Lotus Notes Code Error: " & Str$(Err()) & "<br>" 

End If 

End Sub 

Stev C- 2.21 

Create the agent named LSX LCDeptLookup having the features: Share Agent + Run 
once(@command may be used). 

Create the following LotusScript code for agent LSX LCDeptLookup: 

Option Public 
Uselsx lc “*LSXLC” 

Sub Initialize 

Dim lcs As New lcsession 
Dim lcfldlst As New lcfieldlist(l) 

Dim session As New notessession 

Dim doc As notesdocument 

Dim conn As New lcconnection("db2") 

Dim query As String 

Dim msg As String 

Dim errortext As String 

Dim msgcode As Long 

Dim datal As Long 

Set doc=session.documentcontext 

Set db=session.currentdatabase 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Admini strator" 

parola=" rac4you" 

conn.database=dsn 

conn.userid=userid 

conn.password=parola 

urlstring=doc,Query_String(0) 

urllength=Len(urlstring) 

paramposition=Instr(urlstring, "&")+1 

webparam=Mid(urlstring,paramposition,urllength-paramposition+l) 

conn.disconnect 

lcs.clearstatus 

On Error Goto etl 

conn.connect 

On Error Goto 0 

query="select * from EMPLOYEE where WORKDEPT="' & webparam & 

On Error Goto et2 
datal=conn.execute(query,lcfldlst) 

On Error Goto 0 
Print "<headxbody>" 

Print "<h3>These are other employees that work in department" & webparam & "</h3>" 

Print "ctable border="l">" 

Print "<tr>" 

Print ”<td>EMPNO</td>" 

Print "<td>FIRSTNME</td>" 

Print "<td>MIDINIT</td>" 
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Print " <td>LAS TNAME</td>" 

Print "<td>PHONENO</td>" 

Print "<td>HIREDATE</td>" 

Print "<td>JOB</td>" 

Print "<td>EDLEVEL</td>" 

Print "<td>SEX</td>" 

Print "<td>BIRTHDATE</td>" 

Print "<td>SALARY</td>" 

Print "<td>BONUS</td>" 

Print ”<td>COMM</td>" 

Print "<tr>" 

While (conn.fetch(lcfldlst)>0) 

empno=lcfldlst.EMPNO(0) 

firstnme=lcfldlst,FIRSTNME(0) 

midinit=lcfldlst.MIDINIT (0) 

lastname=lcfldlst.LASTNAME(0) 

phoneno=lcfldlst.PHONENO(0) 

hiredate=lcfldlst.HIRED ATE(O) 

job=lcfldlst.JOB(0) 

edlevel=lcfldlst,EDLEVEL(0) 

sex=lcfldlst.SEX(0) 

birthdate=lcfldlst.B IRTHD ATE(O) 

salary=lcfldlst.S ALARY (0) 

bonus=lcfldlst.BONUS(0) 

comm=lcfldlst.COMM(0) 

Print "<tr>" 

Print "<td>" & empno & "</tr>" 

Print "<tdxa href=./LSX LCEmployeeLookup?OpenAgent&"& empno & ">" & firstnme & ”</a>" 

& "</tr>" 

Print "<td>" & midinit & "</tr>" 

Print "<td>" & lastname & "</tr>" 

Print "<td>" & phoneno & "</tr>" 

Print "<td>" & hiredate & "</tr>" 

Print "<td>" & job & "</tr>" 

Print "<td>" & edlevel & "</tr>" 

Print "<td>" & sex & "</tr>" 

Print "<td>" & birthdate & "</tr>" 

Print "<td>" & salary & "</tr>" 

Print "<td>" & bonus & "</tr>" 

Print "<td>" & comm & "</tr>" 

Print "</tr>" 

Print "</br>" 

Wend 

Print "</table>" 

Print "</bodyx/head>" 

conn.disconnect 

End 

etl: 

Print "Not OK, Could not connect to " & dsn & " DataBase.<br>" 

Goto et3 

et2: 

conn.disconnect 

Print "Not OK, Could not Select from " & dsn & " DataBase !<br>" 

et3: 

If (lcs.status <> LCSUCCSESS) Then 

datal=lcs.getstatus(errortext,msgcode,msg) 

Print "Internal Error Text: " & errortext & "<br>" 

Print "Internal Error Code: " & StrS(datal) & "<br>" 

Print "External Error Text: " & msg & "<br>" 

Print "External Error Code: " & Str$(msgcode) & "<br>" 

Else 
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Print "Lotus Notes Text Error: " & Error() & "<br>" 
Print "Lotus Notes Code Error: " & Str$(Err()) & "<br>" 

End If 

End Sub 


In order to run Example 2.21 do the following steps: 

■f Open a Web browser and type the following URL: 

http://mummer.ism.can.ibm.com/testl/lsxcodbc.nsf/form6 

The result on the Web browser is as follows: 


EMPLOYEE Search 


Th> ncmFlr Ihe nsr «£> Serf* EsflmiKfl for L--ius Damp 'J'-rrrH-fs iwir ngnt •» rrtic*e a*In £em Die D6*3 £AM?L£ 

■LuLiJt List J mi die EMPLOYEE Nuurtter era ere-J tel pb’ 

Select ui \n iiiLfr; 


LUtil'll I 


OhcbpAth; Sifcizr bitton raeiults the iginl 

"Ui ml r-ii flw !«j!=i'LSSCC:-eiipttiset;L-=-ib.wj)" w(St.t|ir £nfu^n blic^hpi ai n f-«furirtar 


■S Type the following Serial Number:000270 and Click onto Submit button when finished. 


EMPLOYEE Search 


Tbs mart It shows the us: of i Lotus 5onpl Extension itr Lotus EJomno Concenters ser«r sii: jjjeri: to netneee data from tb? DEV2 fAMPLE 

ajiitHP Tutst<> <=n Ih' EMPLOYEE thoriter en It oat? dpi* 

Selti-I ait Tintplnyrr- Niutiberc 


(MM7D 

£ubnj| | 

CTkIuh flu Sitm* bsttou sseiulr s (Lit ajent 

'flu wt r«i th« «nn# ’ISXffSmphTHL 0Gkrqn" w*h dir £nptye* Nmilter w a pJc^molT 

After a while, the Web browser brings up the following information: 
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This is the information for employee: 000270 


EMPNO: 000270 
FIRSTNAME: MAFIA 
MIDINIT: L 
LASTNAME: PEREZ 

WORKDEPT: D21 
PHONENO: 9001 
HIREDATE: 9/30/80 
JOB: CLERK 
EDLEVEL: 15 
SEX: F 

BIRTHDATE: 5/26/53 
SALARY: 27380 
BONUS: 500 
COMM: 2190 


Thank You 

Y Click on D21 Reference Link in order to see what other persons work in the same 
Department. 

TTkrtt :irr iftitr* tmpltiym dur wart. Lt 'li|i jiiiutIii jii] 
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11 
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T 

SI2WS2 
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Y Click on any Name, listed under column FIRSTNME. Actually behind each name is a 
Reference Link. After a while the Web browser brings up the information for that specific Name 

in the same format as for Maria Perez: This is the information for employee. 

You can play around selecting a lot of EMPNOs and FIRSTNMEs from EMPLOYEE 

table. 


Let’s try to explain what happened. 
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After the user click the Submit button from the browser, the formula of the $$Retum field is 
evaluated and then executed on Domino Server. 

When the user selects an employee number, the $$Return field is evaluated to the following 
URL, which is processed by the Domino Web Server and runs the LSX LCEmployeeLookup 
agent with a parameter of 000270: 

http://mummer.ism.can.ibm.com/testl/lsxcodbc.nsf/LSX 

LCEmployeeLookup?OpenAgent&000270 

As the agent is initiated, it parses the command line that was passed to it “via” the Domino 
Context method of the NotesSession class, which at it turn gives us access to the CGI variable 
URL String. The following code shows this: 


Set doc=session.documentcontext 

Set db=session.currentdatabase 

conn.silentmode=True 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Adrnini strator" 

parola=" rac4y ou" 

urlstring=doc.Query_String(0) 

urllength=Len(urlstring) 

paramposition=Instr(urlstring, "&")+1 

webparam=Mid(urlstring,paramposition,urllength-paramposition+l) 


Knowing the employee number, we can use LSX LC to query the EMPLOYEE table in the 
SAMPLE database and pull the information for EMPNO=000270 as follows: 


query.sql="select * from EMPLOYEE where EMPNO-" & webparam & 


The final action is to display the information onto the Web browser using LotusScript Print 
command and a combination of HTML tags. 

But what about displaying other employees from the same department ? 

Lor this, take a look at the following code line in LSX LCEmployeeLookup agent: 


Print "WORKDEPT: <a href=./LSX LCDeptLookup?OpenAgent&” & workdept & ">" & 
workdept & ”</a>" & "<br>" 

This line create an HTML link to another agent called LSX LCDeptLookup as it’s shown below: 
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This is the information for employee: 000270 


EMPNO: 000270 
FIRSTNAME: MARIA 
MIDINTT L 
LASTNAME: PEREZ 

WORKDEPT: D21 
PHONENO: 9001 
HIREDATE: 9/30/80 
JOB: CLERK 
EDLEVEL: 15 
SEX: F 

BIRRED ATE: 5/26/53 
SALARY: 27380 
BONUS: 500 
COMM: 2190 


Thank You 

Clicking the URL aside of word WORKDEPT that means, the word D21 . will run the agent 
LSX LCDeptLookup on the Domino Server with a parameter of D21. This agent retrieves a list 
of all employee that work in the same department and displays the information onto the Web 
browser using LotusScript Print command and a combination of HTML tags. 

Having the table generated by LSX LCDeptLookup agent, we can click onto any names shown in 
order to get information for a specific employee; in reality, we invoke again the LSX 
LCEmployeeLookup agent with the following code line: 

Print "ctdxa href=./LSX LCEmployeeLookup?OpenAgent&"& empno & ">" & firstnme & "</a>" 

& "</tr>" 
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3. LotusScript Data Object(LS:DO) 


All examples in this chapter deal with LS:DO, using the same 
database(LSXCODBC.NSF) and Domino Server(MUMMER.ISM.CAN.IBM.COM) that have 
been defined in Chapter 2(LotusScript Extension for Lotus Domino Connectors) 

When you decide to study the examples of this Chapter, you should have aside the following 
books: 

• Lotus Domino Release 5.0: A Developer’s Handbook(IBM Redbook SG24-5331-01) 

• Domino Release 5. Domino Designer Programming Guide, Volume 2:LotusScript Classes 

Lor a program that deals with ODBC, the following statements should be executed: 
USELSX “*LSXODBC” 

• Declare a new object of ODBCConnection type (dim con as new odbcconnection) 

• Declare a new object of ODBCQuery type (dim qry as new odbcquery) 

• Declare a new object of ODBCResultSet type (dim result as new odbcresult) 

• Connect to a DataBaseSource type (con.connectto(.)) 

• Associate the object of ODBCConnection type to the object of ODBCQuery type(set 
qry. connection=con) 

• Associate the object of ODBCResultSet to the object of ODBCQuery(set 
result.query=qry) 

• Specify a query(qry.SQL=”.”) 

• Execute a query(result.execute) 

• Examine ResultSet. 
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Example 3.1 


This example displays the name of the available data sources 
In order to achieve this objective do the following steps: 

Step A - 3.1 

Create the agent AGENT 1 having the features: Shared Agent, Manually From Action 
Menu, Should Act on All Documents in DataBase. 

Step B - 3.1 

Create the following LotusScript code for AGENT 1: 


Sub Initialize 

Dim con As New odbcconnection 
Dim msg As String 
Dim dsnlist As Variant 
dsnlist=con.listdatasources 
For n%=Lbound(dsnlist) To Ubound(dsnlist) 
msg=msg & dsnlist(n%) & Chr(10) 

Next 

Messagebox "List of accepted external DSNs is as follows:" & Chr(10) & msg 

End Sub 


In order to run AGENT1 do the following step: 

S Select LSXCODBC.NSF DataBase —> Actions —> AGENT 1 

The result is as follows: 
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Example 3.2 


This example shows an agent connection to the data source. If the connection fails the 
agent exits, contrary the agent lists the tables for the data source, looping through a string array 
returned by ListTables. 

In order to achieve this objective do the following steps: 

Step A - 3.2 

Create the agent AGENT2 having the features: Shared Agent, Manually From Action 
Menu, Should Act on All Documents in DataBase. 

Step B - 3.2 

Create the following LotusScript code for AGENT2: 


Sub Initialize 

Dim con As New odbcconnection 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

Dim msg As String 

Dim tables As Variant 

dsn="SAMPLE" 

userid=" Admini strator" 

parola=" rac4you" 

Call con.disconnect 

Call con.connecttoldsn, userid, parola) 

If Not con.isconnected Then 

Messagebox "I cannot get connected to " & dsn 
End 

End If 

Messagebox "I've got connected to " & dsn 
con.silentmode=False 

tables=con.listtables(dsn,userid,parola) 

msg="An array has been created having minimum " & Lbound(tables) & " and maximum " & Ubound(tables) & " 
tables:" & Chr(10) 

For n%=Lbound(tables) To Ubound(tables) 
msg=msg & tables(n%) & " , " 

Next 

Messagebox msg 
con.disconnect 

End Sub 

In order to run AGENT2 do the following step: 

S Select LSXCODBC.NSF DataBase —> Actions —> AGENT2 
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The result is as follows: 




An array has been created having minimum 1 and maximum 150 tables: 

SYSATTRIBUTES, SYSBUFFERPOOLNODES, SYSBUFFERPOOLS, SYSCHECKS, 
SYSCOLAUTH, SYSCOLCHECKS. SYSCOLDIST. SYSCOLOPTIONS, SYSCOLPROPERTIES, 
SYSCOLUMNS, SYSCONSTDEP, SYSDATATYPES, SYSDBAUTH, SYSDEPENDENCIES, 
SYSEVENTMONITORS, SYSEVENTS, SYSFUNCMAPOPTIONS, SYSFUNCMAPPARMOPTIONS, 
SYSFUNCMAPPINGS, SYSFUNCPARMS, SYSFUNCTIONS, SYSHIERARCHIES, 

SYSINDEXAUTH, SYSINDEXCOLUSE, SYSINDEXES, SYSINDEXEXPLOITRULES, 
SYSINDEXEXTENSIONMETHODS, SYSINDEXEXTENSIONPARMS, SYSINDEXEXTENSIONS, 
SYSINDEXOPTIONS, SYSJARCONTENTS. SYSJAROBJECTS. SYSKEYCOLUSE, 
SYSNAMEMAPPINGS, SYSNODEGROUPDEF, SYSNODEGROUPS, SYSPARTITIONMAPS, 
SYSPASSTHRUAUTH. SYSPLAN, SYS PLAN AUTH, SYSPLANDEP, SYSPREDICATESPECS. 
SYSPROCEDURES, SYSPROCOPTIONS, SYSPROCPARMOPTIONS, SYSPROCPARMS, 
SYSRELS, SYSREVTYPEMAPPINGS, SYSSCHEMAAUTH, SYSSCHEMATA. SYSSECTION, 
SYSSEQUENCES, SYSSERVEROPTIONS. SYSSERVERS, SYSSTMT, SYSTABAUTH. 
SYSTABCONST, SYSTABLES, SYSTABLESPACES, SYSTABOPTIONS, SYSTBSPACEAUTH, 
SYSTRANSFORMS. SYSTRIGGERS, SYSTYPEMAPPINGS, SYSUSERAUTH, 
SYSUSEROPTIONS, SYSVERSIONS, SYSVIEWDEP, SYSVIEWS, SYSWRAPOPTIONS, 
SYSWRAPPERS. CL.SCHED, DEPARTMENT, EMP_ACT, EMP.PHOTO, EMP_RESUME, 
EMPLOYEE, IN.TRAY, ORG, PROJECT, SALES, STAFF. ATTRIBUTES, BUFFERPOOLNODES, 
BUFFERPOOLS, CASTFUNCTIONS. CHECKS, COLAUTH, COLCHECKS, COLDIST, COLOPTIONS 
, COLUMNS, CONSTDEP, DATATYPES. DBAUTH, EVENTMONITORS, EVENTS, 
FULLHIERARCHIES, FUNCDEP, FUNCMAPOPTIONS, FUNCMAPPARMOPTIONS. 
FUNCMAPPINGS, FUNCPARMS, FUNCTIONS, HIERARCHIES, INDEXAUTH, INDEXCOLUSE, 
INDEXDEP, INDEXES, INDEXOPTIONS, KEYCOLUSE. NAMEMAPPINGS, NODEGROUPDEF, 
NODEGROUPS, PACKAGEAUTH, PACKAGEDEP, PACKAGES, PARTITIONMAPS, 
PASSTHRUAUTH, PROCEDURES, PROCOPTIONS, PROCPARMOPTIONS, PROCPARMS, 
REFERENCES, REVTYPEMAPPINGS. SCHEMAAUTH, SCHEMATA, SERVEROPTIONS, 
SERVERS, STATEMENTS, TABAUTH, TABCONST, TABLES. TABLESPACES, TABOPTIONS, 
TBSPACEAUTH, TRIGDEP, TRIGGERS, TYPEMAPPINGS, USEROPTIONS, VIEWDEP, VIEWS. 
WRAPOPTIONS, WRAPPERS. SYSDUMMY1, COLDIST, COLUMNS .FUNCTIONS, INDEXES, 
TABLES, 


I.OK 
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Example 3.3 

This example passes through all rows of EMPLOYEE table and gets FIRSTNME and 
LASTNAME found in each row. 

In order to achieve this objective do the following steps: 

Step A - 3.3 

Create the agent AGENT3 having the features: Shared Agent, Manually From Action 
Menu, Should Act on All Documents in DataBase. 

Step B - 3.3 

Create the following LotusScript code for AGENT3: 


Sub Initialize 

Dim con As New odbcconnection 
Dim qry As New odbcquery 
Dim result As New odbcresultset 
Dim firstnme As String 
Dim lastname As String 
Dim dsn As String 
Dim userid As String 
Dim parola As String 
Dim msg As String 
dsn="SAMPLE" 
userid=" Admini strator" 
parola=" rac4you" 

Call con.disconnect 

If Not con.connectto(dsn,userid,parola) Then 

Messagebox "Could not connect to " & dsn & " DataBase" 
End 

End If 

Set qry.connection=con 
Set result.query=qry 

qry.SQL="SELECT * FROM EMPLOYEE ORDER BY LASTNAME" 
result.execute 

msg="Student Names:" & Chr(10) 

If result.isresultsetavailable Then 

Do 

result.nextrow 

firstnme=result.getvalue("FIRSTNME") 
lastname=result.getvalue("LASTNAME") 
msg=msg & Chr(10) & firstnme & " " & lastname 
Loop Until result.isendofdata 
result.close(DB_CLOSE) 

Else 

Messagebox "No Data retrieved for EMPLOYEE Table" 

con.disconnect 

End 

End If 

Messagebox msg 
con.disconnect 

End Sub 
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In order to run AGENT3 do the following step: 

^ Select LSXCODBC.NSF DataBase —> Actions —> AGENT3 


The result is as follows: 



Student Names: 


BRUCE ADAMSON 
DAVID BROWN 
JOHN GEVER 
JASON GOUNOT 
CHRISTINE HAAS 
EILEEN HENDERSON 
JAMES JEFFERSON 
SYBIL JOHNSON 
WILLIAM JONES 
SALLY KWAN 
WING LEE 

VINCENZO LUCCHESSI 
JENNIFER LUTZ 
SALVATORE MARINO 
RAMLAL MEHTA 
HEATHER NICHOLLS 
SEAN O'CONNELL 
JOHN PARKER 
MARIA PEREZ 
ELIZABETH PIANKA 
EVA PULASKI 
DOLORES QUINTANA 
ETHEL SCHNEIDER 
MARILYN SCOUTTEN 
MAUDE SETRIGHT 
DANIEL SMITH 
PHILIP SMITH 
THEODORE SPENSER 
IRVING STERN 
MICHAEL THOMPSON 
JAMES WALKER 
MASATOSHIYOSHIMURA 


f .OK 
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Example 3.4 


This example sets the parameters in an SQL query then using NumParameters as upper 
bound, makes a loop in order to retrieve the row containing FIRSTNME and LASTNAME. 

In order to achieve this objective do the following steps: 

Step A - 3.4 

Create the agent AGENT4 having the features: Shared Agent, Manually From Action 
Menu, Should Act on All Documents in DataBase. 

Step B - 3.4 

Create the following LotusScript code for AGENT4: 


Sub Initialize 

Dim con As New odbcconnection 

Dim qry As New odbcquery 

Dim result As New odbcresultset 

Dim inputparameter As String 

Dim firstname As String 

Dim lastname As String 

Dim msg As String 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Admini strator" 

parola=" rac4you" 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connecttoldsn,userid,parola) 

qry.sql="select * from EMPLOYEE where FIRSTNME= ?firstname? AND LASTNAME= ?lastname?" 
For i=l To result.numparameters 

inputparameter=Inputbox$(result.getparametername(i),"Parameter" & i) 

Call result.setparameter(i,& inputparameter & 

Next 

msg="Parameter Name : Parameter Value" 

For i=l To result.numparameters 

msg=msg& Chr(10) & result.getparametername(i) & " : " & result.getparameter(i) 

Next 

result.exeeute 

msg=msg & Chr(10) & Chr(lO) & "Student Name:" 

If result.isresultsetavailable Then 
result.nextrow 

studentno=result.getvalue("EMPNO",studentno) 
firs tname=result.getvalue("FIRSTNME",firstname) 
las tname=result.getvalue("LASTNAME",lastname) 

If result.isvaluealtered("EMPNO") Then 

msg=msg & Chr(10) & "The value in EMPNO field is altered" & Chr(10) 

End If 

If result.isvaluealtered("FIRSTNME”) Then 

msg=msg & Chr(10) & "The value in FIRSTNME field is altered" & Chr(10) 

End If 
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If result.isvaluealtered("LASTNAME") Then 

msg=msg & Chr(lO) & "The value in LASTNAME field is altered" & Chr(lO) 

End If 

If result.isvaluenullC'EMPNO") Then 

msg=msg & Chr(10) & "The value in EMPNO field is NULL" & Chr(10) 

End If 

If result.isvaluenull("FIRSTNME") Then 

msg=msg & Chr(10) & "The value in FIRSTNME field is NULL" & Chr(10) 

End If 

If result.isvaluenull("LASTNAME") Then 

msg=msg & Chr(10) & "The value in LASTNAME field is NULL" & Chr(10) 

End If 

msg=msg & Chr(10) & studentno & " " & firstname & " " & lastname 
msg=msg & Chr(10) & Chr(10) & "GetRowStatus: " 

Select Case result.getrowstatus 

Case DB_UNCHANGED : msg=msg & " DB_UNCHANGED" 

Case DB_ALTERED : msg=msg & " DB_ALTERED" 

Case DB_UPDATED : msg=msg & "DBJJPDATED" 

Case DB_DELETED : msg=msg & "DB_DELETED" 

Case DB_NEWROW : msg=msg & "DB_NEWROW" 

End Select 

If result.hasrowchanged Then 

msg=msg & Chr(10) & "Another Program changed this row" 

Else 

msg=msg & Chr(10) & "Row wasn't changed by Another Program" 

End If 

Else 

Messagebox "Cannot get result set" 

Call con.disconnect 
End 

End If 

Messagebox msg 
Call con.disconnect 

End Sub 


In order to run AGENT4 do the following step: 

S Select LSXCODBC.NSF DataBase —> Actions —> AGENT4 

The result is as follows: 



Parameter Name : Parameter Value 
firstname: 'JAMES' 
lastname: 'WALKER' 

Student Name: 

000190 JAMES WALKER 

GetRowStatus: DBJJNCHANGED 
Row wasn't changed by Another Program 
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Example 3.5 

This example examines all the fields ( columns ) in the EMPLOYEE table and displays 
their features 

In order to achieve this objective do the following steps: 

Step A - 3.5 

Create the agent AGENT5 having the features: Shared Agent, Manually From Action 
Menu, Should Act on All Documents in DataBase. 

Step B - 3.5 

Create the following LotusScript code for AGENT5: 


Sub Initialize 

Dim con As New odbcconnection 
Dim qry As New odbcquery 
Dim result As New odbcresultset 
Dim msg As String 
Dim fieldinfo As Variant 
Dim m2 As String 
Dim dsn As String 
Dim userid As String 
Dim parola As String 
dsn="SAMPLE" 
userid=" Admini strator" 
parola=" rac4you" 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connecttoldsn,userid,parola) 

If Not con.isconnected Then 

Messagebox "Could not connect to " & dsn & " DataBase" 

End 

End If 

qry.sql="select * from EMPLOYEE order by LASTNAME" 
result.execute 

If Not result.isresultsetavailable Then 

Messagebox "Couldn't get result set" 

Call con.disconnect 
End 

End If 

msg="Fields in " & dsn & " TableCFirst Part of The Table):" & Chr(10) 

For i=l To result.numcolumns 

fieldinfo=result.fieldinfo(i) 

m2="" 

If fieldinfo(DB_INFO_AUTOINCREMENT)=DB_AUTOINCREMENT Then 
m2=m2 & " , " & "AUTOINCREMENT" 

End If 

If fieldinfo(DB_INFO_CASESENSITIVE)=DB_CASESENSITIVE Then 
m2=m2 & " , " & "CASESENSITIVE" 

End If 

If fieldinfo(DB_INFO_COMPUTED)=DB_COMPUTED Then 
m2=m2 & " , " & "COMPUTED" 

End If 
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If fieldinfo(DB_INFO_MONEY)=DB_MONEY Then 
m2=m2 & " , " & "MONEY" 

End If 

If fieldinfo(DB_INFO_NULLABLE)=DB_NO_NULLS Then 
m2=m2 & ”, ” & "DB_NO_NULLS" 

End If 

If fieldinfo(DB_INFO_NULLABLE)=DB_NULLABLE Then 
m2=m2 & ", " & "DB_NULLABLE" 

End If 

If fieldinfo(DB_INFO_NULLABLE)=DB_NULLS_UNKNOWN Then 
m2=m2 & ", " & "DB_NULLS_UNKNOWN" 

End If 

If fieldinfo(DB_INFO_READONLY)=DB_READONLY Then 
m2=m2 & ", " & "READONLY" 

End If 

If fieldinfo(DB_INFO_READONLY)=DB_RE AD WRITE Then 
m2=m2 "READWRITE" 

End If 

msg=msg & Chr(10) & i & " -> " & result.fieldname(i) size " & " " & result.fieldsize(i) & ", " & 

Next 

Messagebox msg 

msg="Fields in " & dsn & " TablelSecond Part of The Table):" & Chr(10) 

For i=l To result.numcolumns 

fieldinfo=result.fieldinfo(i) 
m2="" 

m2=m2 & " , DB_COLUMNID= " & fieldinfo(DB_INFO_COLUMNID) 

m2=m2 & " , DB_COLUMNNAME= " & fieldinfo(DB_INFO_COLUMNNAME) 

m2=m2 & " , DB_DISPLAYSIZE= " & fieldinfo(DB_INFO_DISPLAYSIZE) 

m2=m2 & " , DB_EXPECTED_D AT AT YPE= " & fieldinfo(DB_INFO_EXPECTED_DATATYPE) 

m2=m2 & " , DB_LENGTH= " & fieldinfo(DB_INFO_LENGTH) 

msg=msg & Chr(10) & i & " -> " & result.fieldname(i) size " & " " & result.fieldsize(i) & "," & 

Next 

Messagebox msg 

msg="Fields in " & dsn & " TablefThird Part of The Table):" & Chr(10) 

For i=l To result.numcolumns 

fieldinfo=result.fieldinfo(i) 

m2="" 

If fieldinfo(DB_INFO_READONLY)=DB_READONLY_UNKNOWN Then 

m2=m2 & " , " & "READONLY_UNKNOWN" 

End If 

If fieldinfo(DB_INFO_SEARCHABLE)=DB_SEARCHABLE Then 
m2=m2 & " , " & "DB_SEARCHABLE" 

End If 

If fieldinfo(DB_INFO_SEARCHABLE)=DB_UNSEARCHABLE Then 
m2=m2 & " , " & "DB_UNSEARCHABLE" 

End If 

If fieldinfo(DB_INFO_SEARCHABLE)=DB_LIKE_ONLY Then 
m2=m2 & " , " & "DB_LIKE_ONLY" 

End If 

If fieldinfo(DB_INFO_SEARCHABLE)=DB_ALLEXCEPT_LIKE Then 
m2=m2 & " , " & "DB_ALLEXCEPT_LIKE" 

End If 

If fieldinfo(DB_INFO_SETTABLE)=DB__SETTABLE Then 
m2=m2 & " , " & "DB_SETTABLE" 

End If 

If fieldinfo(DB_INFO_UNSIGNED)=DB_UNSIGNED Then 
m2=m2 & " , " & "DB_UNSIGNED" 

End If 
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m2 


msg=msg & Chr(lO) & i & " -> " & result.fieldname(i) size " & " " & result.fieldsize(i) & ", " & 


Next 

Messagebox msg 

msg="Fields in " & dsn & " Table(Fourth Part of The Table):" & Chr(10) 

For i=l To result.numcolumns 

fieldinfo=result.fieldinfo(i) 

m2="" 

m2=m2 & " , DB_NATIVE_DATATYPE= " & fieldinfo(DB_INFO_NATIVE_DATATYPE) 

m2=m2 & " , DB_PRECISION= " & fieldinfo(DB_INFO_PRECISION) 

m2=m2 & " , DB_SCALE= " & fieldinfo(DB_INFO_SCALE) 

m2=m2 & " , DB_SQLDATATYPE= " & fieldinfo(DB_INFO_SQLDATATYPE) 

m2=m2 & " , DB_TABLENAME= " & fieldinfo(DB_INFO_TABLENAME) 

If result.fieldnativedatatype(i)=SQL_CHAR Then 

m2=m2 & " ,FieldNativeDataType= SQL_CHAR" 

End If 

If result.fieldnativedatatype(i)=SQL_NUMERIC Then 

m2=m2 & " ,FieldNativeDataType= SQL_NUMERIC" 

End If 

If result.fieldnativedatatype(i)=SQL_DECIMAL Then 

m2=m2 & " ,FieldNativeDataType= SQL_DECIMAL" 

End If 

If result.fieldnativedatatype(i)=SQL_INTEGER Then 

m2=m2 & " ,FieldNativeDataType= SQL_INTEGER" 

End If 

If result.fieldnativedatatype(i)=SQL_SMALLINT Then 

m2=m2 & " ,FieldNativeDataType= SQL_SMALLINT" 

End If 

If result.fieldnativedatatype(i)=SQL_FLOAT Then 

m2=m2 & " ,FieldNativeDataType= SQL_FLOAT" 

End If 

If result.fieldnativedatatype(i)=SQL_REAL Then 

m2=m2 & " ,FieldNativeDataType= SQL_REAL" 

End If 

If result.fieldnativedatatype(i)=SQL_REALSQL_DOUBLE Then 

m2=m2 & " ,FieldNativeDataType= SQL_REALSQL_DOUBLE" 

End If 

If result.fieldnativedatatype(i)=SQL_DATE Then 

m2=m2 & " ,FieldNativeDataType= SQL_DATE" 

End If 

If result.fieldnativedatatype(i)=SQL_TIME Then 

m2=m2 & ",FieldNativeDataType= SQL_TIME" 

End If 

If result.fieldnativedatatype(i)=SQL_TIMESTAMP Then 

m2=m2 & " ,FieldNativeDataType= SQL_TIMESTAMP" 

End If 

If result.fieldnativedatatype(i)=SQL_VARCHAR Then 

m2=m2 & " ,FieldNativeDataType= SQL_VARCHAR" 

End If 

If result.fieldnativedatatype(i)=SQL_BINARY Then 

m2=m2 & " ,FieldNativeDataType= SQL_BINARY" 

End If 

If result.fieldnativedatatype(i)=SQL_VARBINARY Then 

m2=m2 & " ,FieldNativeDataType= SQL_VARBINARY" 

End If 

If result.fieldnativedatatype(i)=SQL_LONGVARCHAR Then 

m2=m2 & " ,FieldNativeDataType= SQL_LONGVARCHAR" 

End If 

If result.fieldnativedatatype(i)=SQL_LONGVARBINARY Then 

m2=m2 & " ,FieldNativeDataType= SQL_LONGVARBINARY" 

End If 
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If result.fieldnativedatatype(i)=SQL_BIGINT Then 

m2=m2 & " ,FieldNativeDataType= SQL_BIGINT" 

End If 

If result.fieldnadvedatatype(i)=SQL_TINYINT Then 

m2=m2 & " ,FieldNativeDataType= SQL_TINYINT" 

End If 

If result.fieldnativedatatype(i)=SQL_BIT Then 

m2=m2 & " ,FieldNativeDataType= SQL_BIT" 

End If 

msg=msg & Chr(lO) & i & " -> " & result.fieldname(i) size " & " " & result.fieldsize(i) & ", 

m2 

Next 

Messagebox msg 
result.close(DB_CLOSE) 

Call con.disconnect 

End Sub 

In order to run AGENT5 do the following step: 

S Select LSXCODBC.NSF DataBase —> Actions —> AGENT5 


The result is as follows: 



Fields in SAMPLE1 Table(First Part of The Table): 

I -> EMPNO, size 6, , AUTOINCREMENT, COMPUTED, MONEY, DB_NO_NULLS 

2- > FIRSTNME, size 12, , AUTOINCREMENT, COMPUTED, MONEY, DB_NO_NULLS 

3- > MIDINIT, size 1, , AUTOINCREMENT, COMPUTED, MONEY, DB_NO_NULLS 

A -> LASTNAME, size 15, , AUTOINCREMENT, COMPUTED, MONEY, DB_NO_NULLS 

5- > WORKDEPT, size 3, , AUTOINCREMENT, COMPUTED, MONEY, DB_NU LIABLE 

6- > PHONENO, size A. , AUTOINCREMENT, COMPUTED, MONEY, DB_NULLABLE 

7 -> HIREDATE, size 6, , AUTOINCREMENT, CASESENSITIVE, COMPUTED, MONEY. 
DBJMULLABLE 

8 -> JOB, size 8. .AUTOINCREMENT, COMPUTED, MONEY, DBJMULLABLE 

9-> EDLEVEL, size 2, .AUTOINCREMENT, CASESENSITIVE, COMPUTED, MONEY. 
DB_NO_NULLS 

10 -> SEX, size 1, .AUTOINCREMENT, COMPUTED, MONEY, DBJMULLABLE 

II -> BIRTHDATE, size 6, .AUTOINCREMENT. CASESENSITIVE, COMPUTED. MONEY. 
DBJMULLABLE 

12- > SALARY, size 11, .AUTOINCREMENT, CASESENSITIVE, COMPUTED, MONEY. 
DBJMULLABLE 

13- > BONUS, size 11, , AUTOINCREMENT, CASESENSITIVE, COMPUTED, MONEY, 
DB.NULLABLE 

1 A -> COMM, size 11, .AUTOINCREMENT, CASESENSITIVE, COMPUTED, MONEY. 

DB NULLABLE 
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Fields in SAMPLE1 Table(Third Part of The Table): 

1 -> EMPNO. size 6. . READONLYJJNKNOWN , DB_SEARCHABLE 

2 -> FIRSTNME . size 1 2. . READONLY_UNKNOWN . DB_SEARCHABLE 
3-> MIDINIT. size 1. . RE AD ON LY_UN KNOWN . DB_SE ARCH ABLE 

4 -> LASTNAME . size 15. . RE AD ON LY_UN KNOWN . DB_SE ARCH ABLE 

5 -> WORKDEPT. size 3, . READONLY_UNKNOWN . DB_SEARCHABLE 

6 -> PHONENO , size 4 , . RE AD ON LY_UN KNOWN . DB_SE ARCH ABLE 

7-> HI RE DATE, size 6. . READ ONLY_UN KNOWN . DB_ALLEXCEPT_LIKE 

8 -> JOB . size 8, . READ ONLY_UN KNOWN . D B_S E ARCH AB LE 

9 -> EDLEVEL, size 2. . READONLY_UNKNOWN . DB_ALLEXCEPT_LIKE . DB_UNSIGNED 

I 0 -> SEX. size 1, . RE AD ON LY_UN KNOWN . DB_SE ARCH ABLE 

II -> BIRTH DATE . size 6. , READ ONLY_UN KNOWN . D B_ALLEXCE PT_LI KE 

1 2 -> SALARY. size 11.. READONLY_UNKNOWN . DB_ALLEXCEPT_LIKE . DB_UNSIGNED 
1 3 -> BONUS . size 11,, READONLY_UNKNOWN , DB_ALLEXCEPT_LIKE , DB_UNSIGNED 
1 4 -> COMM , size 11,, READONLY_UNKNOWN , DB_ALLEXCEPT_LIKE , DB_UNSIGNED 
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Fields in SAMPLE1 Table(Fourth Part of The Table): 


1 -> EMPNO, size 6, , DB_NATIVE_DATATYPE= 1, DB_PRECISION= 6, DB_SCALE= 0, 
DB_SQLDATATYPE= 1, DB_TABLENAME= EMPLOYEE,FieldNativeDataType= SQL.CHAR 

2 -> FIRSTNME, size 12, , DB_NATIVE_DATATYPE = 12, DB_PRECISION= 12, DB_SCALE= 0, 

D B_S Q LD ATATYPE = 12, DB_TABLENAME= EMPLOYEE ,FieldNativeDataType= SQL.VARCHAR 
3-> MIDINIT, size 1, , DB_NATIVE_DATATYPE = 1, DB_PRECISION= 1. DB_SCALE= 0, 

D B_S Q LD ATATYPE = 1, DB_TABLENAME= EMPLOYEE ,FieldNativeDataType= SQL.CHAR 
A -> LASTNAME, size 15, , DB_NATIVE_DATATYPE= 12, DB_PRECISION= 15, DB_SCALE= 0, 

D B_S Q LD ATATYPE = 12, DB_TABLENAME= EMPLOYEE ,FieldNativeDataType= SQL.VARCHAR 
5-> WORKDEPT, size 3, , DB_NATIVE_DATATYPE = 1, DB_PRECISION= 3, DB_SCALE= 0, 

D B_S Q LD ATATYPE = 1, DB_TABLENAME= EMPLOYEE ,FieldNativeDataType= SQL.CHAR 

6 -> PHONENO. size A, , DB_NATIVE_DATATYPE = 1, DB_PRECISION= A , DB_SCALE= 0, 
DB_SQLDATATYPE = 1, DB_TABLENAME= EMPLOYEE ,FieldNativeDataType= SQL.CHAR 

7 -> HIREDATE, size G, , DB_NATIVE_DATATYPE = 9, DB_PRECISION= 10, DB_SCALE= 0, 

D B_S Q LD ATATYPE = 9, DB_TABLENAME= EMPLOYEE ,FieldNativeDataType= SQL.DATE 

8 -> JOB, size 8, , DB_NATIVE_DATATYPE = 1, DB_PRECISION= 8, DB_SCALE= 0, 

D B_S Q LD ATATYPE = 1, DB_TABLENAME= EMPLOYEE ,FieldNativeDataType= SQL.CHAR 

9 -> EDLEVEL, size 2, , DB_NATIVE_DATATYPE = 5, DB_PRECISION= 5, DB_SCALE= 0, 

D B_S Q LD ATATYPE = 5, DB_TABLENAME= EMPLOYEE ,FieldNativeDataType= SQL.SMALLINT 
10-> SEX, size 1, , DB_NATIVE_DATATYPE = 1, DB_PRECISION= 1, DB_SCALE= 0, 

D B_S Q LD ATATYPE = 1, D B_TAB LE N AM E = EMPLOYEE ,FieldNativeDataType= SQL.CHAR 

11 -> BIRTHDATE. size 6. , DB_NATIVE_DATATYPE = 9, DB_PRECISION= 10. DB_SCALE= 0, 

D B_S Q LD ATATYPE = 9, DB_TABLENAME= EMPLOYEE ,FieldNativeDataType= SQL.DATE 

12 -> SALARY, size 11,, DB_NATIVE_DATATYPE = 3, DB_PRECISION= 9, DB_SCALE= 2, 

D B_S Q LD ATATYPE = 3, DB_TABLENAME= EMPLOYEE ,FieldNativeDataType= SQL_DECIMAL 

13 -> BONUS, size 11,, DB_NATIVE_DATATYPE = 3, DB_PRECISION= 9, DB_SCALE= 2, 
DB_SQLDATATYPE = 3, DB_TABLENAME= EMPLOYEE ,FieldNativeDataType= SQL.DECIMAL 
1 A -> COMM, size 11,. DB_NATIVE_DATATYPE = 3, DB_PRECISION= 9, DB_SCALE= 2, 
DB_SQLDATATYPE = 3, DB_TABLENAME= EMPLOYEE ,FieldNativeDataType= SQL.DECIMAL 


f.OK 
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Example 3.6 


This example shows an agent (AGENT6) that accesses all the rows of a result set twice, 
starting from the first row. The first time you do not explicitly set FirstRow since the first 
NextRow following an EXECUTE implicitly sets FirstRow. The second time, you must 
explicitly set FirstRow and process the first row before entering the loop. 

In order to achieve this objective do the following steps: 

Step A -3.6 

Create the agent AGENT6 having the features: Shared Agent, Manually From Action 
Menu, Should Act on All Documents in DataBase. 

Step B - 3.6 

Create the following LotusScript code for AGENT6: 


Sub Initialize 

Dim con As New odbcconnection 
Dim qry As New odbcquery 
Dim result As New odbcresultset 
Dim msg As String 
Dim firstname As String 
Dim lastname As String 
Dim dsn As String 
Dim userid As String 
Dim parola As String 
dsn="SAMPLE" 
userid=" Admini strator" 
parola=" rac4you" 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connecttoldsn,userid,parola) 

If Not con.isconnected Then 

Messagebox "Could not connect to " & dsn & " DataBase" 
End 

End If 

qry.sql="select * from EMPLOYEE order by LASTNAME" 
result.execute 

If Not result.isresultsetavailable Then 

Messagebox "Couldn’t get result set" 

Call con.disconnect 
End 

End If 

msg="Student Name(without RESULT.FIRSTROW): " & Chr(10) 

Do 

result.nextrow 

firs tname=result.getvalue("FIRSTNME".firstname) 
las tname=result.getvalue("LASTNAME",lastname) 
msg=msg & Chr(10) & firstname & " " & lastname 

Loop Until result.isendofdata 

Messagebox msg 

msg="Student Name(with RESULT.FIRSTROW): " & Chr(10) 
result.firstrow 
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firstname=result.getvalue("FIRSTNME",firstname) 
lastname=result.getvalue("LASTNAME",lastname) 
msg=msg & Chr(lO) & firstname & " " & lastname 

Do 

result.nextrow 

firs tname=result.getvalue("FIRSTNME", firstname) 
las tname=result.getvalue("LASTNAME",lastname) 
msg=msg & Chr(10) & firstname & " " & lastname 
Loop Until result.isendofdata 
Messagebox msg 
result.close(DB_CLOSE) 
con.disconnect 

End Sub 


In order to run AGENT6 do the following step: 

S Select LSXCODBC.NSF DataBase —> Actions —> AGENT6 


The result is as follows: 
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Student Name (with RESULT.FIRSTROW) 


BRUCE ADAMSON 
DAVID BROWN 
JOHN GEYER 
JASON GOUNOT 
CHRISTINE HAAS 
EILEEN HENDERSON 
JAMES JEFFERSON 
SYBIL JOHNSON 
WILLIAM JONES 
SALLY KWAN 
WING LEE 

VINCENZO LUCCHESSI 
JENNIFER LUTZ 
SALVATORE MARINO 
RAMIAL MEHTA 
HEATHER NICHOLLS 
SEAN O'CONNELL 
JOHN PARKER 
MARIA PEREZ 
ELIZABETH PIANKA 
EVA PULASKI 
DOLORES QUINTANA 
ETHEL SCHNEIDER 
MARILYN SCOUTTEN 
MAUDE SETRIGHT 
DANIEL SMITH 
PHILIP SMITH 
THEODORE SPENSER 
IRVING STERN 
MICHAEL THOMPSON 
JAMES WALKER 
MASATOSHIYOSHIMURA 


f .OK 
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Example 3.7 


This example locates all the rows in a result set with “JAMES” in “FIRSTNME” field 
and “DESIGNER in field 2. 

In order to achieve this objective do the following steps: 

Step A - 3.7 

Create the agent AGENT7 having the features: Shared Agent, Manually From Action 
Menu, Should Act on All Documents in Database. 

Step B - 3.7 

Create the following LotusScript code for AGENT: 


Sub Initialize 

Dim con As New odbcconnection 

Dim qry As New odbcquery 

Dim result As New odbcresultset 

Dim msg As String 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Admini strator" 

parola=" rac4you" 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connecttoCdsn,userid,parola) 

If Not con.isconnected Then 

Messagebox "Could not connect to " & dsn & " DataBase" 

End 

End If 

qry.sql="select EMPNO, JOB, LASTNAME, FIRSTNME from EMPLOYEE order by LASTNAME" 
result.execute 

If Not result.isresultsetavailable Then 

Messagebox "Couldn't get result set" 

Call con.disconnect 
End 

End If 

msg="Students are:" & Chr(10) 

result.firstrow 

Do While result.locaterow("FIRSTNME", "JAMES",2, ’DESIGNER") 
msg=msg & Chr(10) 

For i=l To result.numcolumns 

msg=msg & result.getvalue(i) & " " 

next 

If result.isendofdata Then Exit Do 

result.nextrow 

Loop 

Messagebox msg 

result.close(DB_CLOSE) 

con.disconnect 

End Sub 
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In order to run AGENT7 do the following step: 

^ Select LSXCODBC.NSF DataBase —> Actions —> AGENT7 

The result is as follows: 
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Example 3.8 


This example displays all rows in EMPLOYEE table, for each row showing the values of 
EMPNO, FIRSTNME, LASTNAME. The variable into which the result set value is stored, is 
also used as the second argument to GetValue in order to make the data typing explicitly. 

In order to achieve this objective do the following steps: 

Step A - 3.8 

Create the agent AGENT8 having the features: Shared Agent, Manually From Action 
Menu, Should Act on All Documents in DataBase. 

Step B - 3.8 

Create the following LotusScript code for AGENT8: 


Sub Initialize 

Dim con As New odbcconnection 

Dim qry As New odbcquery 

Dim result As New odbcresultset 

Dim studentno As String 

Dim firstname As String 

Dim lastname As String 

Dim msg As String 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Admini strator" 

parola=" rac4you" 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connecttoldsn,userid,parola) 

If Not con.isconnected Then 

Messagebox "Could not connect to " & dsn & " DataBase" 
End 

End If 

qry.sql="select * from EMPLOYEE order by LASTNAME" 
result.execute 

If Not result.isresultsetavailable Then 

Messagebox "Couldn't get result set" 

Call con.disconnect 
End 

End If 

msg="Students Names:" & Chr(lO) 

Do 

result.nextrow 

If result.isvaluenull("EMPNO") Then 
studentno="None" 

Else 

studentno=result.getvalue("EMPNO",studentno) 

End If 

If result.isvaluenull("FIRSTNME") Then 
firstname="None" 
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Else 

firstname=result.getvalue("FIRSTNME",firstname) 

End If 

If result.isvaluenull("FIRSTNME") Then 
lastname="None" 

Else 

lastname=result.getvalue(' ’LASTNAME" ,lastname) 

End If 

msg=msg & Chr(lO) & studentno & " " & firstname & " " & lastname 

Loop Until result.isendofdata 

Messagebox msg 
Call con.disconnect 

End Sub 

In order to run AGENT8 do the following step: 

^ Select LSXCODBC.NSF DataBase —> Actions —> AGENT8 


The result is as follows: 



Students Names: 


0001 50 BRUCE ADAMSON 

000200 DAVID BROWN 

000050 JOHN GEYER 

000340 JASON GOUNOT 

00001 0 CHRISTINE HAAS 

000090 EILEEN HENDERSON 

000230 JAMES JEFFERSON 

000260 SYBIL JOHNSON 

00021 0 WILLIAM JONES 

000030 SALLY KWAN 

000330 WING LEE 

00011 0 VINCENZO LUCCHESSI 

000220 JENNIFER LUTZ 

000240 SALVATORE MARINO 

000320 RAMIAL MEHTA 

0001 40 HEATHER NICHOLLS 

0001 20 SEAN O'CONNELL 

000290 JOHN PARKER 

000270 MARIA PEREZ 

000160 ELIZABETH PIANKA 

000070 EVA PULASKI 

000130 DOLORES QUINTANA 

000280 ETHEL SCHNEIDER 

000180 MARILYN SCOUTTEN 

00031 0 MAUDE SETRIGHT 

000250 DANIEL SMITH 

000300 PHILIP SMITH 

0001 00 THEODORE SPENSER 

000060 IRVING STERN 

000020 MICHAEL THOMPSON 

0001 90 JAMES WALKER 

0001 70 MASATOSHI YOSHIMURA 


f OK 
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Example 3.9 


This example displays, just for the first row of EMPLOYEE table, the name of column, 
the type of column and the value of column. 

In order to achieve this objective do the following steps: 

Step A - 3.9 

Create the agent AGENT9 having the features: Shared Agent, Manually From Action 
Menu, Should Act on All Documents in DataBase. 

Step B - 3.9 

Create the following LotusScript code for AGENT9: 


Sub Initialize 

Dim con As New odbcconnection 

Dim qry As New odbcquery 

Dim result As New odbcresultset 

Dim msg As String 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Admini strator" 

parola=" rac4you" 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connecttoCdsn,userid,parola) 

If Not con.isconnected Then 

Messagebox "Could not connect to " & dsn & " DataBase" 

End 

End If 

qry.sql="select * from EMPLOYEE order by LASTNAME" 
result.execute 

If Not result.isresultsetavailable Then 

Messagebox "Couldn't get result set" 

Call con.disconnect 
End 

End If 

result.nextrow 

msg="" 

For i=l To result.numcolumns 

If (result.fieldexpecteddatatype(i) = DB_TYPE_UNDEFINED) Then 

msg=msg & result.fieldname(i) & " & Typename(result.getvalue(i)) & " is 

DB_TYPE_UNDEFINED'' & " : " & result.getvalue(i) & Chr(10) 

End If 

If (result.fieldexpecteddatatype(i) = DB_CHAR) Then 

msg=msg & result.fieldname(i) & & Typename(result.getvalue(i)) & " is DB_CHAR" & " : " & 

result.getvalue(i) & Chr(10) 

End If 

If (result.fieldexpecteddatatype(i) = DB_SHORT) Then 

msg=msg & result.fieldname(i) & " & Typename(result.getvalue(i)) & " is DB_SHORT" & " : " 

& result.getvalue(i) & Chr(lO) 

End If 
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If (result.fieldexpecteddatatype(i) = DB_LONG) Then 

msg=msg & result.fieldname(i) & " & Typename(result.getvalue(i)) & " is DB_LONG" & " : " 

& result.getvalue(i) & Chr(lO) 

End If 

If (result.fieldexpecteddatatype(i) = DB_DOUBLE) Then 

msg=msg & result.fieldname(i) & " & Typename(result.getvalue(i)) & " is DB_DOUBLE" & " : 

" & result.getvalue(i) & Chr(10) 

End If 

If (result.fieldexpecteddatatype(i) = DB_DATE) Then 

msg=msg & result.fieldname(i) & & Typename(result.getvalue(i)) & " is DB_DATE" & " : " & 

result.getvalue(i) & Chr(lO) 

End If 

If (result.fieldexpecteddatatype(i) = DB_TIME) Then 

msg=msg & result.fieldname(i) & ": " & Typename(result.getvalue(i)) & " is DB_TIME" & " : " & 

result.getvalue(i) & Chr(lO) 

End If 

If (result.fieldexpecteddatatype(i) = DB_BINARY) Then 

msg=msg & result.fieldname(i) & ": " & Typename(result.getvalue(i)) & " is DB_BINARY" & " : 

" & result.getvalue(i) & Chr(lO) 

End If 

If (result.fieldexpecteddatatype(i) = DB_BOOL) Then 

msg=msg & result.fieldname(i) & ": " & Typename(result.getvalue(i)) & " is DB_BOOL" & " : " 

& result.getvalue(i) & Chr(lO) 

End If 

If (result.fieldexpecteddatatype(i) = DB_DATETIME) Then 

msg=msg & result.fieldname(i) & ": " & Typename(result.getvalue(i)) & " is DB_DATETIME" & 

" : " & result.getvalue(i) & Chr(lO) 

End If 

Next 

Messagebox msg 
result.close(DB_CLOSE) 
con.disconnect 

End Sub 


In order to run AGENT9 do the following step: 

S Select LSXCODBC.NSF DataBase —> Actions —> AGENT9 


The result is as follows: 


| X I 

EMPNO: STRING is DB_TYPE_UNDEFINED : 0001 50 
FIRSTNME: STRING is DB_TYPE_UNDEFINED : BRUCE 
MIDINIT: STRING is DB_TYPE_UNDEFINED : 

LASTNAME: STRING is DB_TYPE_UNDEFINED : ADAMSON 
WORKDEPT: STRING is DB_TYPE_UNDEFINED : D11 
PHONENO: STRING is DB_TYPE_UNDEFINED : 451 0 
HIREDATE: DATE is DB_TYPE_UNDEFINED : 2/1 2/72 
JOB: STRING is DB_TYPE_UNDEFINED : DESIGNER 
ED LEVEL: INTEGER is DB_TYPE_UNDEFINED : 1 6 
SEX: STRING is DB_TYPE_UNDEFINED : M 
BIRTHDATE: DATE is DB_TYPE_UNDEFINED : 5/1 7/1 947 
SALARY: DOUBLE is DB_TYPE_UNDEFINED : 25280 
BONUS: DOUBLE is DB_TYPE_UNDEFINED : 500 
COMM: DOUBLE is DB_TYPE_UNDEFINED : 2022 

L°Q 
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Example 3.10 


This example is based on a form and view, both named “PhoneBook. The form has three 
fields: lastName, firstName, phoneNumber. The view has seven Actions. The example also uses 
the agent AGENT 11. 

The following items are exercised: 

• ACTION1: creates new table onto DB2 (named Phone), deletes a table (named Phone) adds 
new rows into the Phone table. 

• ACTION2: adds new rows into the Phone table. 

• ACTION3: deletes a row into the Phone table but if the row is unique only; that means there 
aren’t two columns in the Phone table having the same LASTNAME, FIRSTNAME. 

• ACTION4: displays all rows of the Phone table using the sequence: 

DO 

RESULT.NEXTROW 


LOOP UNTIL RESULT.ISENDOFDATA 

• ACTION5: DROPs the table Phone 

• ACTION6: updates the column FIRSTNAME for the row FLOREA COSTICA 123456, 
changing COSTICA with CRISTINA 

• ACTION7: displays all the rows of the Phone table using the sequence: 

RESULT.LASTROW 

FOR 1=1 to RESULT.NUMROWS 


NEXT 

• AGENT11: deletes all rows from the Phone table, emptying the Phone table, but does not 
remove the Phone table. ACTION5 removes the Phone table. 

In order to achieve this objective do the following steps: 

Step A - 3.10 

Create the agent AGENT11 having the features: Shared Agent, Manually From Action 
Menu, Should Act on All Documents in DataBase. 

Step B - 3.10 

Create the following LotusScript code for AGENT11: 
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Sub Initialize 

Dim con As New odbcconnection 
Dim qry As New odbcquery 
Dim result As New odbcresultset 
Dim msg As String 
Dim dsn As String 
Dim userid As String 
Dim parola As String 
dsn="SAMPLE" 
userid=" Administrator" 
parola=" rac4you" 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connecttoldsn,userid,parola) 

If Not con.isconnected Then 

msg="Could not connect to " & dsn & " DataBase" & Chr(10) 

If con.geterror <> DBstsSUCCESS Then 

msg=msg & "ExtendedErrorMessage= " & con.getextendederrormessage 
msg=msg & " Error= " & con.geterror & " ErrorMessage= " & con.geterrormessage 

End If 

Messagebox msg 
End 

End If 

qry.sql=''delete from phone" 

If qry.geterror <> DBstsSUCCESS Then 

msg=msg & "ExtendedErrorMessage= " & qry.getextendederrormessage 
msg=msg & " Error= " & con.geterror & " ErrorMessage= " & qry.geterrormessage 
Messagebox msg 
End 

End If 

If Not result.executeO Then 

msg="Couldn't delete" & Chr(10) 

If result.geterror <> DBstsSUCCESS Then 

msg=msg & "Error result.execute: ExtendedErrorMessage= " & result.getextendederrormessage 
msg=msg & " Error= " & result.geterror & " ErrorMessage= " & result.geterrormessage 

End If 

Messagebox msg 

con.disconnect 

End 

End If 

result.close(DB_CLOSE) 

con.disconnect 

Messagebox "Finish DELETE" 

End Sub 


Step C - 3.10 


Field lasiNone la^iNcme ■[ FieW 6rstNopie 


lir&iHame 


Field phoneNumber: phoneNumber 


Create the form PhoneBook having the following fields (text + editable): 
LastName, firstName, phoneName. 


Step D - 3.10 

Create the view PhoneBook each column of it being the image of fields from PhoneBook 
form, and having the following features: 
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Globals->Options: 


Option Public 
USELSX “*LSXODBC” 
Globals->Declarations: 

%INCLUDE "lsconst.lss" 
Dim session As notessession 
Dim db As notesdatabase 
Dim view As notesview 

Sub Postopen(Source As Notesuiview) 

Set session=New notessession 
Set db=session.currentdatabase 
Set view=db .getview( "PhoneB ook") 

End sub 


^ -- 


“ “ “ “ ’ ’ ■ 

—1 



LSXCand ODBC 

_| ■ ll»] IL^j ■iiji ] ^ 

0) actionl tg) aclion2 

C0)action3 g 

) action4 g) action5 

g) action6 C 

g) action7 

fz= 1 

lastName 

firs! Name 

phoneN umber 




Step E - 3.10 

Create the following LotusScript code for ACTION1: 


Sub Click(Source As Button) 

Dim con As New odbcconnection 

Dim qry As New odbcquery 

Dim result As New odbcresultset 

Dim msg As String 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Admini strator" 

parola=" rac4y ou" 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connectto(dsn,userid,parola) 

If Not con.isconnected Then 

msg="Could not connect to " & dsn & " DataBase" & Chr(10) 

If con.geterror <> DBstsSUCCESS Then 

msg=msg & "ExtendedErrorMessage= " & con.getextendederrormessage 
msg=msg & " Error= " & con.geterror & " ErrorMessage= " & con.geterrormessage 

End If 

Messagebox msg 
End 

End If 

qry.sql= "create table Phone (LASTNAME char(32), FIRSTNAME char(32), PHONENO char(16))" 

If qry.geterror <> DBstsSUCCESS Then 

msg="Error first qry.SQL: ExtendedErrorMessage= " & qry.getextendederrormessage 
msg=msg & " Error= " & qry.geterror & " ErrorMessage= " & qry.geterrormessage 
Messagebox msg 
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End 


End If 

result.execute 

If result.geterror <> DBstsSUCCESS Then 

msg="Error first result.execute: ExtendedErrorMessage= " & result.getextendederrormessage 
msg=msg & " Erroi- " & result.geterror & " ErrorMessage= " & result.geterrormessage 
Messagebox msg 

If Messagebox ("Do you want to delete the existing table ?", MB_YESNO, "Table already exists" )=IDYES 

Then 

result.close(DB_CLOSE) 
qry.sql="DROP TABLE Phone" 

If Not result.execute!) Then 

msg="Couldn't drop" & Chr(10) 

msg=msg & "Error first result.execute: ExtendedErrorMessage= " & 

result.getextendederrormessage 

msg=msg & " Erroi- " & result.geterror & " ErrorMessage= " & result.geterrormessage 

Messagebox msg 

con.disconnect 

End 

End If 

result.close(DB_CLOSE) 

qry.sql= "create table Phone (LASTNAME char(32), FIRSTNAME char(32), PHONENO 

char (16))" 

If qry.geterror <> DBstsSUCCESS Then 

msg="Error second qry.SQL: ExtendedErrorMessage= " & qry.getextendederrormessage 
msg=msg & " Erroi- " & qry.geterror & " ErrorMessage= " & qry.geterrormessage 
Messagebox msg 
End 

End If 

result.execute 

If result.geterror <> DBstsSUCCESS Then 

msg="Error second result.execute: ExtendedErrorMessage= " & 

result.getextendederrormessage 

msg=msg & " Erroi- " & result.geterror & " ErrorMessage= " & result.geterrormessage 

Messagebox msg 

End 

End If 

Else 

result.close(DB_CLOSE) 

con.disconnect 

End 

End If 

End If 

If qry.geterror <> DBstsSUCCESS Then 

msg="Cannot run qry.SQL: ExtendedErrorMessage= " & qry.getextendederrormessage 

msg=msg & " Erroi- " & qry.geterror & " ErrorMessage= " & qry .geterrormessage 

Messagebox msg 

result.close(DB_CLOSE) 

con.disconnect 

End 

End If 

result.close(DB_CLOSE) 

qry.SQL="select * from Phone" 

result.execute 

Set doc=view.getfirstdocument 
While Not (doc Is Nothing) 
result.addrow 

Call result.setvalue("LASTNAME", doc.lastName(O)) 

Call result.setvalue("FIRSTNAME",doc.firstName(0)) 

Call result.setvalue("PHONENO",doc.phoneNumber(0)) 
result.updaterow 
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Set doc=view.getnextdocument(doc) 

Wend 

result.close(DB_CLOSE) 
con.disconnect 

Messagebox "Finish ACTION 1" 

End Sub 


Stev F- 3.10 

Create the following LotusScript code for ACTION2: 


Sub Click(Source As Button) 

Dim con As New odbcconnection 

Dim qry As New odbcquery 

Dim result As New odbcresultset 

Dim msg As String 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Admini strator" 

parola=" rac4you" 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connecttoCdsn,userid,parola) 

If Not con.isconnected Then 

msg="Could not connect to " & dsn & " DataBase" & Chr(10) 

If con.geterror <> DBstsSUCCESS Then 

msg=msg & "ExtendedErrorMessage= " & con.getextendederrormessage 
msg=msg & " Erroi- " & con.geterror & " ErrorMessage= " & con.geterrormessage 

End If 

Messagebox msg 
End 

End If 

qry.sql= "select * from Phone" 

If qry.geterror <> DBstsSUCCESS Then 

msg="Error qry.SQL: ExtendedErrorMessage= " & qry.getextendederrormessage 
msg=msg & " Erroi- " & qry.geterror & " ErrorMessage= " & qry.geterrormessage 
Messagebox msg 
End 

End If 

result.execute 

If result.geterror <> DBstsSUCCESS Then 

msg="Error result.execute: ExtendedErrorMessage= " & result.getextendederrormessage 
msg=msg & " Erroi- " & result.geterror & " ErrorMessage= " & result.geterrormessage 
Messagebox msg 
End 

End If 

Set dc=db.unprocesseddocuments 
If dc.count=0 Then 

result.close(DB_CLOSE) 

con.disconnect 

Messagebox "There aren't UnprocessedDocuments" 

End 

End If 

For i=l To dc.count 

Set doc=dc.getnthdocument(i) 

Call session.updateprocesseddoc(doc) 
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result.addrow 

Call result.setvahie("LASTNAME", doc.lastName(O)) 
Call result.setvalue("FIRSTNAME",doc.firstName(0)) 
Call result.setvalue("PHONENO",doc.phoneNumber(0)) 
result.updaterow 

Next 

result.close(DB_CLOSE) 
con.disconnect 

Messagebox "Finish ACTION2" 

End Sub 


Step G - 3.10 

Create the following LotusScript code for ACTION3: 

Sub Click(Source As Button) 

Dim con As New odbcconnection 

Dim qry As New odbcquery 

Dim result As New odbcresultset 

Dim msg As String 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Admini strator" 

parola=" rac4you" 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connecttoCdsn,userid,parola) 

If Not con.isconnected Then 

msg="Could not connect to " & dsn & " DataBase" & Chr(10) 

If con.geterror <> DBstsSUCCESS Then 

msg=msg & "ExtendedErrorMessage= " & con.getextendederrormessage 
msg=msg & " Erroi- " & con.geterror & " ErrorMessage= " & con.geterrormessage 

End If 

Messagebox msg 
End 

End If 

qry.sql= "select * from Phone" 

If qry.geterror <> DBstsSUCCESS Then 

msg="Error qry.SQL: ExtendedErrorMessage= " & qry.getextendederrormessage 
msg=msg & " Erroi- " & qry.geterror & " ErrorMessage= " & qry.geterrormessage 
Messagebox msg 
End 

End If 

result.execute 

If result.geterror <> DBstsSUCCESS Then 

msg="Error result.execute: ExtendedErrorMessage= " & result.getextendederrormessage 
msg=msg & " Erroi- " & result.geterror & " ErrorMessage= " & result.geterrormessage 
Messagebox msg 
End 

End If 

Set dc=db.unprocesseddocuments 
If dc.count=0 Then 

result.close(DB_CLOSE) 

con.disconnect 

Messagebox "There aren't UnprocessedDocuments" 

End 
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End If 

For i=l To dc.count 

Set doc=dc.getnthdocument(i) 

Call session.updateprocesseddoc(doc) 

If result.locaterow(l, doc.lastName(O), 2, doc.firstName(O)) Then 

If result.geterror <> DBstsSUCCESS Then 

msg="Error result.locaterow: ExtendedErrorMessage= " & 

result.getextendederrormessage 

msg=msg & " Error= " & result.geterror & " ErrorMessage= " & result.geterrormessage 

Messagebox msg 

End 

End If 

result.deleterow("Phone'') 

If result.geterror <> DBstsSUCCESS Then 

msg="Error result.deleterow: ExtendedErrorMessage= " & 

result.getextendederrormessage 

msg=msg & " Error= " & result.geterror & " ErrorMessage= " & result.geterrormessage 

Messagebox msg 

End 

End If 

End If 

Next 

view.refresh 

result.close(DB_CLOSE) 
con.disconnect 

Messagebox "Finish ACTION3" 

End Sub 

Step H-3.10 


Create the following LotusScript code for ACTION4: 


Sub Click(Source As Button) 

Dim con As New odbcconnection 

Dim qry As New odbcquery 

Dim result As New odbcresultset 

Dim msg As String 

Dim firstname As String 

Dim lastname As String 

Dim phoneno As String 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Admini strator" 

parola=" rac4you" 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connecttoCdsn,userid,parola) 

If Not con.isconnected Then 

msg="Could not connect to " & dsn & " DataBase" & Chr(10) 

If con.geterror <> DBstsSUCCESS Then 

msg=msg & "ExtendedErrorMessage= " & con.getextendederrormessage 
msg=msg & " Error= " & con.geterror & " ErrorMessage= " & con.geterrormessage 

End If 

Messagebox msg 

End 

End If 
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qry.sql="select * from Phone order by LASTNAME" 

If qry.geterror <> DBstsSUCCESS Then 

msg="Error qry.SQL: ExtendedErrorMessage= " & qry.getextendederrormessage 
msg=msg & " Erroi- " & qry.geterror & " ErrorMessage= " & qry.geterrormessage 
Messagebox msg 
End 

End If 

result.execute 

If result.geterror <> DBstsSUCCESS Then 

msg="Error result.execute: ExtendedErrorMessage= " & result.getextendederrormessage 
msg=msg & " Erroi- " & result.geterror & " ErrorMessage= " & result.geterrormessage 
Messagebox msg 
End 

End If 
msg="" 

Call displayresultsetproperties(result,msg) 

msg=msg & Chr(10) & "Phone entries:" 

DcT 

result.nextrow 

firs tname=result.getvalue("FIRSTNAME", firs tname) 

las tname=result.getvalue( "LASTNAME",lastname) 

phoneno=result.getvalue("PHONENO",phoneno) 

msg=msg & Chr(10) & firstname & " " & lastname & " " & phoneno 

Loop Until result.isendofdata 

msg=msg & Chr(10) 

Call displayresultsetproperties(result,msg) 

Messagebox msg 

result.close(DB_CLOSE) 

con.disconnect 


End Sub 

Sub displayresultsetproperties(result,msg) 

If result.isresultsetavailable Then 

If result.numrows=DB_NORESULT Then 

msg=msg & Chr(10) & " result.numrows= DB_NORESULT" 

End If 

If result.numrows=DB_ROWSUNKNOWN Then 

msg=msg & Chr(10) & " result.numrows= DB_ROWSUNKNOWN" 

End If 

If result.numrows=DB_ROWSLIMITED Then 

msg=msg & Chr(10) & " result.numrows= DB_ROWSLIMITED" 

End If 

rows$=Cstr(result.numrows) 

msg=msg & Chr(10) & "NumColumns= " & result.numcolumns & Chr(lO) _ 
& "NumRows= " & rows$ & Chr(10) _ 

& "IsBeginOfData= " & result.isbeginofdata & Chr(10) _ 

& "IsEndOfData= " & result.isendofdata & Chr(10) _ 

& "CurrentRow= " & result.currentrow & Chr(10) 

Else 

msg=msg & " Result set not available" & Chr(10) 

End If 

End Sub 

Step I-3.10 

Create the following LotusScript code for ACTION5: 


Sub Click(Source As Button) 

Dim con As New odbcconnection 
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Dim qry As New odbcquery 

Dim result As New odbcresultset 

Dim msg As String 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Adrnini strator" 

parola=" rac4you" 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connecttoCdsn,userid,parola) 

If Not con.isconnected Then 

msg="Could not connect to " & dsn & " DataBase" & Chr(10) 

If con.geterror <> DBstsSUCCESS Then 

msg=msg & "ExtendedErrorMessage= " & con.getextendederrormessage 
msg=msg & " Erroi- " & con.geterror & " ErrorMessage= " & con.geterrormessage 

End If 

Messagebox msg 
End 

End If 

qry.sql= "DROP TABLE Phone" 

If qry.geterror <> DBstsSUCCESS Then 

msg=msg & "ExtendedErrorMessage= " & qry.getextendederrormessage 
msg=msg & " Erroi- " & con.geterror & " ErrorMessage= " & qry.geterrormessage 
Messagebox msg 
End 

End If 

If Not result.executed Then 

msg="Couldn't drop" & Chr(10) 

msg=msg & "Error result.execute: ExtendedErrorMessage= " & result.getextendederrormessage 

msg=msg & " Erroi- " & result.geterror & " ErrorMessage= " & result.geterrormessage 

Messagebox msg 

con.disconnect 

End 

End If 

result.close(DB_CLOSE) 

con.disconnect 

Messagebox "Finish ACTION5" 

End Sub 


Step ,/ - 3.10 

Create the following LotusScript code for ACTION6: 


Sub Click(Source As Button) 

Dim con As New odbcconnection 
Dim qry As New odbcquery 
Dim result As New odbcresultset 
Dim msg As String 
Dim dsn As String 
Dim userid As String 
Dim parola As String 
dsn="SAMPLE" 
userid=" Administrator" 
parola=" rac4you" 

Set qry.connection=con 
Set result.query=qry 
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Call con.disconnect 

Call con.connecttoCdsn,userid,parola) 

If Not con.isconnected Then 

msg="Could not connect to " & dsn & " DataBase" & Chr(10) 

If con.geterror <> DBstsSUCCESS Then 

msg=msg & "ExtendedErrorMessage= " & con.getextendederrormessage 
msg=msg & " Error= " & con.geterror & " ErrorMessage= " & con.geterrormessage 

End If 

Messagebox msg 
End 

End If 

qry.sql= "select * from Phone" 

If qry.geterror <> DBstsSUCCESS Then 

msg="Error qry.SQL: ExtendedErrorMessage= " & qry.getextendederrormessage 
msg=msg & " Erroi- " & qry.geterror & " ErrorMessage= " & qry.geterrormessage 
Messagebox msg 
End 

End If 

result.execute 

If result.geterror <> DBstsSUCCESS Then 

msg="Error result.execute: ExtendedErrorMessage= " & result.getextendederrormessage 
msg=msg & " Erroi- " & result.geterror & " ErrorMessage= " & result.geterrormessage 
Messagebox msg 
End 

End If 

Set dc=db.unprocesseddocuments 
If dc.count=0 Then 

result.close(DB_CLOSE) 

con.disconnect 

Messagebox "There aren't UnprocessedDocuments" 

End 

End If 

For i=l To dc.count 

Set doc=dc.getnthdocument(i) 

Call session.updateprocesseddoc(doc) 

If result.locaterow(l, doc.lastName(O)) Then 

If result.geterror <> DBstsSUCCESS Then 

msg="Error result.locaterow: ExtendedErrorMessage= " & 

result.getextendederrormessage 

msg=msg & " Erroi- " & result.geterror & " ErrorMessage= " & result.geterrormessage 

Messagebox msg 

End 

End If 

Call result.setvalue(2, doc.firstName(O)) 

If result.geterror <> DBstsSUCCESS Then 

msg="Error result.setvalue: ExtendedErrorMessage= " & result.getextendederrormessage 
msg=msg & " Erroi- " & result.geterror & " ErrorMessage= " & result.geterrormessage 
Messagebox msg 
End 

End If 

Call result.updaterow 

If result.geterror <> DBstsSUCCESS Then 

msg="Error result.update: ExtendedErrorMessage= " & result.getextendederrormessage 
msg=msg & " Erroi- " & result.geterror & " ErrorMessage= " & result.geterrormessage 
Messagebox msg 
End 

End If 

End If 

Next 

view.refresh 

result.close(DB_CLOSE) 
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End Sub 


con.disconnect 

Messagebox "Finish ACTION6' 


Stev K - 3.10 

Create the following LotusScript code for ACTION7: 


Sub Click(Source As Button) 

Dim con As New odbcconnection 

Dim qry As New odbcquery 

Dim result As New odbcresultset 

Dim msg As String 

Dim firstname As String 

Dim lastname As String 

Dim phoneno As String 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Admini strator" 

parola=" rac4you" 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connecttofdsn,userid,parola) 

If Not con.isconnected Then 

msg="Could not connect to " & dsn & " DataBase" & Chr(10) 

If con.geterror <> DBstsSUCCESS Then 

msg=msg & "ExtendedErrorMessage= " & con.getextendederrormessage 
msg=msg & " Erroi- " & con.geterror & " ErrorMessage= " & con.geterrormessage 

End If 

Messagebox msg 
End 

End If 

qry.sql="select * from Phone order by LASTNAME" 

If qry.geterror <> DBstsSUCCESS Then 

msg="Error qry.SQL: ExtendedErrorMessage= " & qry.getextendederrormessage 
msg=msg & " Erroi- " & qry.geterror & " ErrorMessage= " & qry.geterrormessage 
Messagebox msg 
End 

End If 

result.execute 

If result.geterror <> DBstsSUCCESS Then 

msg="Error result.execute: ExtendedErrorMessage= " & result.getextendederrormessage 
msg=msg & " Erroi- " & result.geterror & " ErrorMessage= " & result.geterrormessage 
Messagebox msg 
End 

End If 
msg="" 

Call displayresultsetpropertieslresult,msg) 

msg=msg & Chr(10) & "Phone entries:" 

result.lastrow 

For i=l To result.numrows 

result.currentrow=i 

firs tname=result.getvalue("FIRSTNAME", firstname) 

las tname=result.getvalue("LASTNAME",lastname) 

phoneno=result.getvalue("PHONENO",phoneno) 

msg=msg & Chr(10) & firstname & " " & lastname & " " & phoneno 
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Next 

msg=msg & Chr(lO) 

Call displayresultsetproperties(result,msg) 

Messagebox msg 
result.close(DB_CLOSE) 
con.disconnect 

End Sub 

Sub displayresultsetproperties(result,msg) 

If result.isresultsetavailable Then 

If result.numrows=DB_NORESULT Then 

msg=msg & Chr(10) & " result.numrows= DB_NORESULT" 

End If 

If result.numrows=DB_ROWSUNKNOWN Then 

msg=msg & Chr(10) & " result.numrows= DB_ROWSUNKNOWN" 

End If 

If result.numrows=DB_ROWSLIMITED Then 

msg=msg & Chr(10) & " result.numrows= DB_ROWSLIMITED" 

End If 

rows$=Cstr(result.numrows) 

msg=msg & Chr(10) & "NumColumns= " & result.numcolumns & Chr(10) _ 

& "NumRows= " & rows$ & Chr(10) _ 

& "IsBeginOfData= " & result.isbeginofdata & Chr(10) _ 

& "IsEndOfData= " & result.isendofdata & Chr(10) _ 

& "CurrentRow= " & result.currentrow & Chr(10) 

Else 

msg=msg & " Result set not available" & Chr(10) 

End If 

End Sub 

In order to run ACTION1 do the following steps: 

■S Select LSXCODBC.NSF DataBase —> Create —> PhoneBook and create two documents. 
■S Open the view PhoneBook and push onto ACTION 1 
The result is as follows: 

For view PhoneBook: 


) Welcome Workspace LSXC and ODBC • PhoneBook x 

LSXC and ODBC 

actionl 3) action2 action3 0) action4 Q) action5 ac(ion6 0) action7 

HU view2 

m 


lastName firstName phoneNumber 

Florea Costica 123456 

Lascu Octavian 7890987 


For ACTION 1: 
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Error first re suit, execute: ExtendedErrorMessage= [IBM][CLI D rive r][DB 2/NT] SQL0601N The name of 
the object to be created is identical to the existing name "ADMINISTRATOR.PHONE" of type "TABLE". 
SQLSTATE»42710 

Error= 720 ErrorMessage= LS:DO- ODBC could not complete the requested operation. 


f .OK 




The Content of Phone table in SAMPLE DataBase: 

LASTNAME FIRSTNAME PHONENO 

Florea Costica 123456 

Lascu Octavian 7890987 

The Structure of the table Phone: 



In order to run ACTION2 do the following steps: 
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•S Select LSXCODBC.NSF DataBase —> Create —> PhoneBook and create some documents. 
•S Open the view PhoneBook, select some documents and push onto ACTION2. 

In order to run ACTION3 do the following step: 

•S Open the view PhoneBook, select some documents and push onto ACTION3. 

In order to run ACTION4 do the following step: 

■S Open the view PhoneBook, select some documents and push onto ACTION4. 

The result is as follows: 



In order to run ACTION5 do the following step: 

•S Open the view PhoneBook, and push onto ACTION5. 

In order to run ACTION6 do the following steps: 

S Select LSXCODBC.NSF DataBase. 

•S Open the view PhoneBook, select the document Florea Costica 123456 , open it in edit 
mode and instead of Costica, put Cristina and save the document. 

•S Open the view PhoneBook, select the document Florea Cristina 123456 and push onto 
ACTION6. 
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The result is as follows: 


LSXCand ODBC 

1¥ 

actionl Q) action2 

action3 

— 

L—I ^ Aphnn4 Lxri} ArHnnR 

1-3) actions 

1 - 3 ) action7 

S PhoneBook 1 

* J QLUUtl'T J OCUUIIJ 

[£=] viewl 
(HI view2 


lastName 

Inst Name 

phoneN umber 



✓ 

|Florea 

Cristina 

123456 





Lascu 

Octavian 

7890987 




The Content of Phone table in SAMPLE DataBase: 


LASTNAME FIRSTNAME PHONENO 

Florea Cristina 123456 

Lascu Octavian 7890987 

In order to run ACTION7 do the following step: 

■S Open the view PhoneBook, and push onto ACTION7. 

The result is as follows: 



In order to run AGENT11 do the following step: 

S Select LSXCODBC.NSF DataBase —> Actions —> AGENT 11 
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Example 3.11 


In this example there is the form FORM2 that contains two fields (text + editable) named 
dataSource and Table, four buttons named “Data Source”, “Table”, Postopen”, “QueryClose”, 
and two actions named “List Fields” and “List Procedure”. 

The button “Postopen” sets the objects, gets the names of the available data sources, 
writes the first one to the dataSource field, gets the names of the tables for the data source 
and writes the first one to the Table field. 

The button “Data Source” writes the name of the next data source to the dataSource field, 
gets the tables for the new data source and writes the first one to the Table field. 

The button “Table” writes the name of the next table to the Table field. 

The action “List Fields” displays the names of all the fields for the current data source 
and table. 

The action “List Procedures” displays the name of all the procedures for the current data 
source. 

In order to achieve this objective do the following steps: 

Step A - 3.11 

Create the form FORM2 having: 

Globals->Options: 

Option Public 
USELSX “*LSXODBC” 


Global->Declarations: 

Dim con As odbcconnection 

Dim datasources As Variant 

Dim tables As Variant 

Dim thisdsn As Integer 

Dim thistable As Integer 

Dim workspace As notesuiworkspace 

Dim uidoc As notesuidocument 

Dim parola As String 

Dim userid 1 As String 

The image of FORM2 is as follows: 
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Field dataSource: 7 dataSource t | Field Table: r Table t 



Step B - 3.11 

Create the following LotusScript for the button Data Source: 


Sub Click(Source As Button) 

useridl=" Administrator" 
parola=" rac4you" 

If thisdsn=Ubound(datasources) Then 
thisdsn=Lbound(datasources) 

Else 

thisdsn=thisdsn+1 

End If 

Call uidoe.fieldsettext("dataSource", datasources(thisdsn)) 

If (datasources(thisdsn)="SAMPLE") Then 

tables=con.listtables(datasources(thisdsn),useridl,parola) 
If Ubound(tables) <> 0 Then 

thistable=Lbound(tables) 

Call uidoe.fieldsettext("Table",tables(thistable)) 

End If 

Else 

Call uidoc.fieldsettextf’Table","") 

End If 

End Sub 


Step C - 3.11 

Create the following LotusScript for the button Table: 


Sub Click(Source As Button) 

If (datasources(thisdsn)="SAMPLE") Then 
If Ubound(tables) <>0 Then 

userid 1 =" Administrator" 
parola=" rac4y ou" 

If thistable=Ubound(tables) Then 
thistable=Lbound(tables) 

Else 

thistable=thistable+1 

End If 

Call uidoc.fieldsettext("Table", tables(thistable)) 

End If 

End If 

End Sub 

Step D - 3.11 

Create the following LotusScript for the button Postopen: 
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Sub Click(Source As Button) 

useridl=" Administrator" 
parola=" rac4you" 

Set workspace=New notesuiworkspace 
Set uidoc=workspace.currentdocument 
Set con=New odbcconnection 
con. silentmode=T rue 
datasources=con.listdatasources 
thisdsn=Lbound(datasources) 

Call uidoc.fieldsettext("dataSource", datasources(thisdsn)) 

If (datasources(thisdsn)="SAMPLE") Then 

tables=con.listtables(datasources(thisdsn),useridl,parola) 
If Ubound(tables) <> 0 Then 

thistable=Lbound(tables) 

Call uidoc.fieldsettext("Table",tables(thistable)) 

End If 

Else 

Call uidoc.fieldsettextf’Table","") 

End If 

End Sub 


Step E - 3.11 


Create the following LotusScript for the button QueryClose: 


Sub Click(Source As Button) 

If con.isconnected Then 
con.disconnect 

End If 

End Sub 


Step F - 3.11 

Create the following LotusScript for the action List Fields: 


Sub ClickCSource As Button) 

If (thisdsnoO) And (thistableoO ) Then 

If (datasources(thisdsn)="SAMPLE") Then 
userid 1 =" Administrator" 
parola=" rac4y ou" 

Dim msg As String 
Dim fields As Variant 

Call con.connectto(datasources(thisdsn),userid l.parola) 

If con.isconnected Then 

fields=con.listfields(tables(this table)) 

If Ubound(fields) <> 0 Then 

msg=tables(thistable) & " contains the following fields: " & Chr(10) 

For o%=Lbound(fields) To Ubound(fields) 
msg=msg & Chr(10) & fields(o%) 

Next 

Messagebox msg & " " & Chr(lO) & Chr(10) & "for " & con.datasourcename 

& " DataBase" 


Else 


& " DataBase" 


Messagebox "No fields in " & tables(thistable) & " of" & con.datasourcename 


End If 


con.disconnect 
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End If 



Else 

Messagebox "This is not SAMPLE DataBase" 

End If 

Else 

Messagebox "The operation is not accepted" 

End If 

End Sub 

Stev G - 3.11 

Create the following LotusScript for the action List Procedures: 


Sub Click(Source As Button) 

If (thisdsnoO) And (thistableoO ) Then 

If (datasources(thisdsn)="SAMPLE") Then 
userid 1 =" Administrator" 
parola=" rac4y ou" 

Dim msg As String 
Dim procs As Variant 

Call con.connectto(datasourcesfthisdsn),userid Lparola) 

If con.isconnected Then 

procs=con.listprocedures 
If Ubound(procs) <> 0 Then 

msg=con.datasourcename & " DataBase contains the following procedures: " & 

Chr(10) 

For o%=Lbound(procs) To Ubound(procs) 
msg=msg & Chr(10) & procs(o%) 

Next 

Messagebox msg & " " & Chr(lO) & Chr(10) & "for " & con.datasourcename 

& " DataBase" 

Else 

Messagebox "No procedures for " & con.datasourcename & " DataBase" 

End If 

con.disconnect 

End If 

Else 

Messagebox "This is not SAMPLE DataBase" 

End If 

Else 

Messagebox "The operation is not accepted" 

End If 

End Sub 

In order to run EXAMPLE 3.11 do the following steps: 

S Select LSXCODBC.NSF DataBase —> Create —> FORM2 
S Push onto the button Postopen. It is essential that this be done first ! 

•S If you push onto the button Data Source, you get the following information: 



Field dataSource: 7 Excel Files^ Field Table: j 


Data Source 


Table Postopen QueryClose 
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•S If you push onto the button Table, you get the following information: 


■ ==a * 

■S' — - H 

List Fields By List Procedures 

Field dataSource: 

r SAMPLE1 j| Field Table:"" EMPLOYEE j 

Data Source 

Table 

Postopen | QueryClose | 



•S If you push onto the action List Fields, you get the following information: 
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Example 3.12 


In this example, each time when you exit from the field Part_Number (inside of which 
you must type a valid serial number taken fromEMPNO of EMPLOYEE table), the code 
associated with this field, automatically fills in the fields Part_Name (with the value of 
FIRSTNME), Price (with the value of LASTNAME), Description (with the value of 
WORKDEPT). 

In order to achieve this objective do the following steps: 

Step A - 3.12 

Create the form FORM3 having the following fields (text + editable): 

Part_Number, Part_Name, Price, Description. 


V) Welcome Workspace <$j* ! LSXC and ODBC [ 

Field Part_Number: r |j Field Part_Name: f & 

Field Price: f j Field Description: f j 


Step B - 3.12 

Create the following LotusScript code for the field Part_Number: 


Sub Exiting(Source As Field) 

Dim con As New odbcconnection 
Dim qry As New odbcquery 
Dim res As New odbcresultset 
Dim ws As New notesuiworkspace 
Dim uidoc As notesuidocument 
Dim dsn As String 
Dim userid As String 
Dim parola As String 
dsn="SAMPLE" 
userid=" Administrator" 
parola=" rac4you" 

Set uidoc=ws.currentdocument 
Call con.disconnect 

If con.connecttofdsn,userid, parola) Then 
Set qry.connection=con 

qry.sql="Select * from EMPLOYEE where EMPNO= '"+uidoc.fieldgettext("Part_Number") + 
Set res.query=qry 
res.execute 

If res.isresultsetavailable=True Then 
res.firstrow 

Call uidoc.fieldsettext("Part_Number",res.getvalue("EMPNO")) 

Call uidoc.fieldsettext("Part_Name",res.getvalue("FIRSTNME")) 

Call uidoc.fieldsettext("Price",res.getvalue("LASTNAME")) 

Call uidoc.fieldsettext("Description",res.getvalue("WORKDEPT")) 

Else 
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Messagebox "No Information found for " & uidoc.fieldgettext("Part_Number") 

End If 

res.close(DB_CLOSE) 
con.disconnect 

Else 

Messagebox "Could not connect to " & dsn & " DataBase" 

End If 

End Sub 

In order to run Example 3.12 do the following steps: 

Select LSXCODBC.NSF DataBase — > Create —> FORM3 
Fill in the field Part_Number with an EMPNO value, let say 000020 

Exit from the field Part_Number trying to get into the field Part_Name. After a while, you’ll 
see, the fields Part_Name, Price, Description are automatically filled with values taken from 
the table EMPLOYEE for that EMPNO(000020). 

The result is as follows: 

Field Part_Number: 000020 Field Part_Name: MICHAEL 
Field Price: THOMPSON Field Description: B01 


✓ 

✓ 

✓ 


Page 3 - 45 



Example 3.13 


In order to understand this example, read the paragraph “Tips and techniques - 
Handling an ODBC event” from the book Domino Release 5. Domino Designer 
Programming Guide, Volume 2. 

In this example, the values of a row in an ODBC table are displayed as fields in FORM4. 
The user can use buttons to get the next and previous rows. The event handler 
AfterPositionChange displays the number of the current row in another field on the form 
FORM4. 

In order to achieve this objective do the following steps: 

Step A - 3.13 

Create the form FORM4 having: 

The fields (text + editable) empno, lastname, hiredate, RowNumber. 

The buttons: “Postopen”, “Get the Next Row”, “Get the Previous Row”, “QueryClose” 
and the following features: 

Globals->Options: 

Option Public 
USELSX “*LSXODBC” 


Global->Declarations: 

Dim con As odbcconnection 
Dim qry As odbcquery 
Dim result As odbcresultset 
Dim msg As String 
Dim dsn As String 
Dim userid 1 As String 
Dim parola As String 

Global->afterpositionchange(res as odbcresultset) 


Sub afterpositionchangelres As odbcresultset) 

Dim ws As New notesuiworkspace 
Dim source As notesuidocument 
Set source=ws.currentdocument 

Call source.fieldsettext("RowNumber",Cstr(res.currentrow)) 

End Sub 
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The image of F0RM4 is as follows: 


Field empno : v j Field firstname: f j Field lastname : r j 
Field hiredate: ? j Field RowNumber: f j 


Postopen | Get the Next Row | Get the Previous Row | QueryClose | 


Step B - 3.13 

Create the following LotusScript for the button Postopen: 


Sub Click(Source As Button) 
dsn="SAMPLE" 
useridl=" Administrator" 
parola=" rac4y ou" 

Set con=New odbcconnection 

Set qry=New odbcquery 

Set result=New odbcresultset 

Set qry.connection=con 

Set result.query=qry 

Call con.disconnect 

Call con.connectto(dsn,userid 1 .parola) 

If Not con.isconnected Then 

msg="Could not connect to " & dsn & " DataBase" & Chr(10) 

If con.geterror <> DBstsSUCCESS Then 

msg=msg & "ExtendedErrorMessage= " & con.getextendederrormessage 
msg=msg & " Error= " & con.geterror & " ErrorMessage= " & con.geterrormessage 

End If 

Messagebox msg 
End 

End If 

On Event afterfirstrow From result Call afterpositionchange 
On Event afterlastrow From result Call afterpositionchange 
On Event afternextrow From result Call afterpositionchange 
On Event afterprevrow From result Call afterpositionchange 

qry.sql="select * from EMPLOYEE order by LASTNAME" 
result.execute 

Dim ws As New notesuiworkspace 
Dim source 1 As notesuidocument 
Set source l=ws.currentdocument 
If Not source 1.editmode Then 

source 1 .editmode=True 

End If 

result.firstrow 

Call sourcel.fieldsettext("empno",Cstr(result.getvalue("EMPNO"))) 

Call sourcel.fieldsettext("firstname",Cstr(result.getvalue("FIRSTNME"))) 

Call sourcel.fieldsettext("lastname",Cstr(result.getvalue("LASTNAME"))) 

Call sourcel.fieldsettext("hiredate",Cstr(result.getvalue("HIREDATE"))) 

End Sub 
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Step C - 3.13 


Create the following LotusScript for the button Get the Next Row: 


Sub Click(Source As Button) 

Dim workspace As New notesuiworkspace 

Dim uidoc As notesuidocument 

Set uidoc=workspace.currentdocument 

If Not result.isendofdata Then result.nextrow 

Call uidoc.fieldsettext("empno", Cstr(result.getvalue("EMPNO"))) 

Call uidoc.fieldsettext("firstname", Cstr(result.getvalue("FIRSTNME"))) 
Call uidoc.fieldsettext("lastname", Cstr(result.getvalue("LASTNAME"))) 
Call uidoc.fieldsettext("hiredate", Cstr(result.getvalue("HIREDATE"))) 

End Sub 

Step D - 3.13 


Create the following LotusScript for the button Get the Previous Row: 


Sub Click(Source As Button) 

Dim workspace As New notesuiworkspace 

Dim uidoc As notesuidocument 

Set uidoc=workspace.currentdocument 

If Not result.isendofdata Then result.prevrow 

Call uidoc.fieldsettext("empno", Cstr(result.getvalue("EMPNO"))) 

Call uidoc.fieldsettext("firstname", Cstr(result.getvalue("FIRSTNME"))) 

Call uidoc.fieldsettext("lastname", Cstr(result.getvalue("LASTNAME"))) 

Call uidoc.fieldsettext("hiredate", Cstr(result.getvalue("HIREDATE"))) 

End Sub 

Step E - 3.13 

Create the following LotusScript for the button QueryClose: 


Sub Click(Source As Button) 

result.close(DB_CLOSE) 

If result.geterror <> DBstsSUCCESS Then 

msg="ExtendedErrorMessage= " & result.getextendederrormessage 

msg=msg & " Erroi- " & result.geterror & " ErrorMessage= " & result.geterrormessage 

Messagebox msg 

End If 

con.disconnect 

End Sub 
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In order to run EXAMPLE 3.13 do the following steps: 

S Select LSXCODBC.NSF DataBase —> Create —> FORM4 
S Push onto the button Postopen. This action is mandatory to be the first one. 

■S If you push onto the buttons Get the Next Row / Get the Previous Row and save the 
document, you get something like the following information: 


LSXC and ODBC 
HI] PhoneBook 
(DO vifiwl 


empno 

firstname 

lastname 

hiredate 

RowN umber 


1000050 JOHN 

GEYER 

8/17/1949 

3 
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Example 3.14 


This example shows how to access external databases via a Web browser and Domino 
Server, using ODBC. To access the data from the Web browser, you must define an ODBC 
connection to external data source and must write the ODBC code in an agent that runs via a 
URL command.The display of the data needed to be formatted in HTML. In this example, giving 
the employee’s serial number, we get information about an employee from SAMPLE database. 
Example 3.14 is similar with Example 2.21; the only difference is that Example 2.21 uses 
LSX LC and Example 3.14 uses ODBC. 

In order to execute Example 3.14 do the following steps: 

Step A - 3.14 

Create a form on LSXCODBC.NSF, named FORM5 having the following structure: 


F Sp.TtQphpns T | r £EHVER_NAME , 

EMPLOYEE Search 


Ths e:(&Tiple * *Jid^s Ihe jsl- "f □ IE.DO stiver sde bscnt Id rrtieve dale tram tfiu DB/2 S^JyPLE 
databasebased on the EMFLCrrEE Nyirtser entered teltw. 

Select an Employee Humber 


EMFNOR , 


Sufcmil 


C id--, ns ihe Si,brnh buiim tmits lit agniiL 
This wll «un the ogehrErTsptn^Lookt*a" wthihe Employee Number as o patErmeiEr 


tSRfcQ/'ii x 


Let’s detail the above form: 

• Field SaveOptions: text + computed, formula: “0” 

• Field SERVER_NAME: text + computed, formula: SERVER_NAME 

• Field EMPNOR: text + editable 

• Field $$Return: text + computed, formula: 

@Return("[http://"+SERVER_NAME+"/"+@ReplaceSubstring(@Subset(@DbName;-l);"\\";7")+"/EmployeeLookup?Ope 

nAgent&"+EMPNOR+"]") 
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• Button Submit: JavaScript Formula: this.form.submit() 

* 

* * 

The Fields: SaveOptions, SERVER_NAME, $$Retum have in “Paragraph Hide When”: 
Hide paragraph from: 

* Notes R4.6 or later * Web browser 

Hide paragraph when document is: 

* opened for reading * opened for editing 

* printed 

Step B- 3.14 

Create the agent named EmployeeLookup having the features: Share Agent + Manually 
from agent list + Should act on all documents in database. 

Create the following LotusScript code for agent EmployeeLookup: 

Option Public 
Uselsxc “*LSXODBC” 


Sub Initialize 

Dim session As New notessession 

Dim doc As notesdocument 

Dim conn As New odbcconnection 

Dim query As New odbcquery 

Dim data As New odbcresultset 

Dim varl As Integer 

Set query.connection=conn 

Set data.query=query 

Set doc=session.documentcontext 

Set db=session.currentdatabase 

conn.silentmode=True 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Adrnini strator" 

parola=" rac4you" 

urlstring=doc.Query_String(0) 

urllength=Len(urlstring) 

paramposition=Instr(urlstring,"&")+l 

webparam=Mid(urlstring,paramposition,urllength-paramposition+l) 
Call conn.disconnect 

If Not conn.connectto(dsn,userid,parola) Then 

Print "Not OK, Could not connect to " & dsn & " DataBase." 

error%=conn.geterror 

message$=conn.geterrormessage 

extendedmessage$=conn.getextendederrormessage 

Print messageS & "<br>" 

Print "Error Code: " & Str$(error%) 

Print "Extended Error: " & extendedmessageS & "<hr>" 

End 

End If 
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query.sql="select * from EMPLOYEE where EMPNO-" & webparam & 

If Not data.execute Then 

Print "Not OK, Could not Select from " & dsn & " DataBase !" 

error%=conn.geterror 

message$=conn.geterrormessage 

extendedmessage$=conn.getextendederrormessage 

Print messageS & "<br>" 

Print "Error Code: " & Str$(error%) 

Print "Extended Error: " & extendedmessageS & "<hr>" 

End 

End If 
varl=0 
Do 

data.nextrow 

empno=data.getvalue( "EMPNO", empno) 

If empno=webparam Then 
varl=l 

firstnme=data.getvalue("FIRSTNME",firstnme) 
mi dinit=data.getvalue("MIDINIT",midinit) 
lastname=data.getvalue("LASTNAME",lastname) 
workdept=data.getvalue("WORKDEPT",workdept) 
phoneno=data.getvalue("PHONENO",phoneno) 
hiredate=data.getvalue(" HIRED ATE'' ,hiredate) 
j ob=data. get value(" J OB" ,j ob) 
edlevel=data.getvalue("EDLEVEL",edlevel) 
sex=data.getvalue("SEX",sex) 
birthdate=data.getvalue("BIRTHDATE".birthdate) 
salary=data.getvalue("S ALARY", salary) 
bonus=data.getvalue("BONUS",bonus) 
comm=data.getvalue( "COMM",comm) 

Print "<headxbody>" 

Print "<h3>This is the information for employee: " & webparam & "</h3>" 

Print "EMPNO: " & empno & "<br>" 

Print "FIRSTNAME: " & firstnme & "<br>" 

Print "MIDINIT: " & midinit & "<br>" 

Print "LASTNAME: " & lastname & "<br>" 

Print "<br>" 

Print "WORKDEPT: <a href=./DeptLookup?OpenAgent&” & workdept & ">" & workdept 

& ”</a>" & "<br>" 

Print "PHONENO: " & phoneno & "<br>" 

Print "HIREDATE: " & hiredate & "<br>" 

Print "JOB: " & job & "<br>" 

Print "EDLEVEL: " & edlevel & "<br>" 

Print "SEX: " & sex & "<br>" 

Print "BIRTHDATE: " & birthdate & "<br>" 

Print "SALARY: " & salary & "<br>" 

Print "BONUS: " & bonus & "<br>" 

Print "COMM: " & comm & "<br>" 

Print "<brxbr>" 

Print "Thank You" 

End If 

Loop Until data.isendofdata 
If varl <>1 Then 

Print "Not OK, The EMPLOYEE ID cannot be found in " & dsn & " DataBase !" 

error%=query.geterror 

message$=query.geterrormessage 

extendedmessage$=query.getextendederrormessage 

Print messageS & "<br>" 

Print "Error Code: " & Str$(error%) 

Print "Extended Error: " & extendedmessageS & "<hr>" 

End 
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End If 

data.close(DB_CLOSE) 

conn.disconnect 

End Sub 


Step C- 3.14 

Create the agent named DeptLookup having the features: Share Agent + Run 
once(@command may be used). 

Create the following LotusScript code for agent DeptLookup: 

Option Public 
Uselsxc “*LSXODBC” 


Sub Initialize 

Dim session As New notessession 

Dim doc As notesdocument 

Dim conn As New odbcconnection 

Dim query As New odbcquery 

Dim data As New odbcresultset 

Set query.connection=conn 

Set data.query=query 

Set doc=session.documentcontext 

Set db=session.currentdatabase 

conn.silentmode=True 

Dim dsn As String 

Dim userid As String 

Dim parola As String 

dsn="SAMPLE" 

userid=" Admini strator" 

parola=" rac4you" 

urlstring=doc.Query_String(0) 

urllength=Len(urlstring) 

paramposition=Instr(urlstring, "&")+1 

webparam=Mid(urlstring,paramposition,urllength-paramposition+l) 

Call conn.disconnect 

If Not conn.connectto(dsn,userid,parola) Then 

Print "Not OK, Could not connect to " & dsn & " DataBase." 

error%=conn.geterror 

message$=conn.geterrormessage 

extendedmessage$=conn.getextendederrormessage 

Print messageS & "<br>" 

Print "Error Code: " & Str$(error%) 

Print "Extended Error: " & extendedmessageS & "<hr>" 

End 

End If 

query.sql="select * from EMPLOYEE where WORKDEPT='" & webparam & 
If Not data.execute Then 

Print "Not OK, Could not Select from " & dsn & " DataBase !" 

error%=conn.geterror 

message$=conn.geterrormessage 

extendedmessage$=conn.getextendederrormessage 

Print messageS & "<br>" 

Print "Error Code: " & Str$(error%) 

Print "Extended Error: " & extendedmessageS & "<hr>" 

End 
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End If 

Print "<headxbody>" 

Print "<h3>These are other employees that work in department" & webparam & "</h3>" 

Print "ctable border="l">" 

Print "<tr>" 

Print ”<td>EMPNO</td>" 

Print "<td>FIRSTNME</td>" 

Print "<td>MIDINIT</td>" 

Print " <td>LAS TNAME</td>" 

Print ”<td>PHONENO</td>" 

Print "<td>HIREDATE</td>" 

Print "<td>JOB</td>" 

Print "<td>EDLEVEL</td>" 

Print "<td>SEX</td>" 

Print "<td>BIRTHDATE</td>" 

Print "<td>SALARY</td>" 

Print "<td>BONUS</td>" 

Print ”<td>COMM</td>" 

Print "<tr>" 

Do 

data.nextrow 

empno=data.getvalue("EMPNO",empno) 

firs tnme=data.getvalue("FIRSTNME",firs tnrne) 

midinit=data.getvalue( "MIDINIT",midinit) 

lastname=data.getvalue("LASTNAME",lastname) 

phoneno=data.getvalue( "PHONENO",phoneno) 

hiredate=data.getvalue("HIREDATE",hiredate) 

j ob=data. getvalue( "IOB" ,j ob) 

edlevel=data.getvalue("EDLEVEL",edlevel) 

sex=data.getvalue("SEX",sex) 

birthdate=data.getvalue("BIRTHDATE",birthdate) 

salary=data.getvalue("S ALARY", salary) 

bonus=data.getvalue("BONUS",bonus) 

comm=data.getvalue("COMM",comm) 

Print "<tr>" 

Print "<td>" & empno & "</tr>" 

Print "<tdxa href=./EmployeeLookup?OpenAgent&" & empno & ">" & firstnme & ”</a>" & 

"</tr>" 

Print "<td>" & midinit & "</tr>" 

Print "<td>" & lastname & "</tr>" 

Print "<td>" & phoneno & "</tr>" 

Print "<td>" & hiredate & "</tr>" 

Print "<td>" & job & "</tr>" 

Print "<td>" & edlevel & "</tr>" 

Print "<td>" & sex & "</tr>" 

Print "<td>" & birthdate & "</tr>" 

Print "<td>" & salary & "</tr>" 

Print "<td>" & bonus & "</tr>" 

Print "<td>" & comm & "</tr>" 

Print "</tr>" 

Print "</br>" 

Loop Until data.isendofdata 
Print "</table>" 

Print "</bodyx/head>" 
data.close(DB_CLOSE) 
conn.disconnect 

End Sub 


In order to run Example 3.14 do the following steps: 
•S Open a Web browser and type the following URL: 
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http://mummer.ism.can.ibm.com/testl/lsxcodbc.nsf/form5 


The result on the Web browser is as follows: 


EMPLOYEE Search 


This example shows the use of a LS:DO server side agent to retrieve data from the DB/2 SAMPLE 
database based on the EMPLOYEE Number entered below. 

Select ail Employee Number: 



Submit 


Clicking the Submit button executes the agent. 

This will run the agent "EmployeeLookup" with the Employee Number as a parameter 

•S Type the following Serial Number: 000270 and Click onto Submit button when finished. 


EMPLOYEE Search 


This example shows the use of a LS:DO server side agent to retrieve data from the DB/2 SAMPLE 
database based on the EMPLOYEE Number entered below. 

Select an Employee Number: 


000270| 


Submit 


Clicking the Submit button executes the agent. 

This will run the agent "EmployeeLookup" with the Employee Number as a parameter 

After a while the Web browser brings up the following information: 
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This is the information for employee: 000270 


EMPNO: 000270 
FIF.STNAME: MAFIA 
MIDDSnT L 
LASTNAME: PEFEZ 

WORKDEPT: D21 
PHONENO: 9001 
HIRED ATE: 9/30/80 
JOB: CLERK 
EDLEVEL: 15 
SEX: F 

BIRTHDATE: 5/26/53 
SALARY: 27380 
BONUS: 500 
COMM: 2190 


Thank You 

Y Click on D21 Reference Link in order to see what other persons work in the same 
department. 
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Y Click on any Name, listed under column FIRSTNME. Actually behind each name is a 
Reference Link. After a while the Web browser brings up the information for that specific 

Name in the same format as for Maria Perez: This is the information for employee. 

You can play around selecting a lot of EMPNOs and FIRSTNMEs from EMPLOYEE 

table. 
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